| 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-unix.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:27 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/pcmpl-unix.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\304\305\306\307\310\311&\210\302\312\313\314\306\315\310\311&\210\302\316\317\320\306\321\310\311\322\323& \210\302\324\325\326\306\327\310\311\322\330& \207" [require pcomplete custom-declare-variable pcmpl-unix-group-file "/etc/group" "If non-nil, a string naming the group file on your system." :type (choice file (const nil)) :group pcmpl-unix pcmpl-unix-passwd-file "/etc/passwd" "If non-nil, a string naming the passwd file on your system." (choice file (const nil)) pcmpl-ssh-known-hosts-file "~/.ssh/known_hosts" "If non-nil, a string naming your SSH \"known_hosts\" file.\nThis allows one method of completion of SSH host names, the other\nbeing via `pcmpl-ssh-config-file'. Note that newer versions of\nssh hash the hosts by default, to prevent Island-hopping SSH\nattacks. This can be disabled, at some risk, with the SSH option\n\"HashKnownHosts no\"." (choice file (const nil)) :version "23.1" pcmpl-ssh-config-file "~/.ssh/config" "If non-nil, a string naming your SSH \"config\" file.\nThis allows one method of completion of SSH host names, the other\nbeing via `pcmpl-ssh-known-hosts-file'." (choice file (const nil)) "24.1"] 10)
#@22 Completion for `cd'.
(defalias 'pcomplete/cd #[nil "\300\301\302\211\211$\205\f \202 \207" [pcomplete--here #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] nil] 5 (#$ . 1738)])
(defalias 'pcomplete/pushd 'pcomplete/cd)
#@25 Completion for `rmdir'.
(defalias 'pcomplete/rmdir #[nil "\300\301\302\211\211$\205\f \202 \207" [pcomplete--here #[nil "\301\302\303\")\207" [regexp nil pcomplete-entries file-directory-p] 3] nil] 5 (#$ . 1997)])
#@22 Completion for `rm'.
(defalias 'pcomplete/rm #[nil "\301\302\303!\210\304\305\306\307\306$\205 \202 )\207" [pcomplete-help "(fileutils)rm invocation" pcomplete-opt "dfirRv" pcomplete--here #[nil "\304\211\304\211\305 \",\207" [predicate regexp pcomplete-dir-ignore pcomplete-file-ignore nil pcomplete-entries] 3] nil expand-file-name] 5 (#$ . 2220)])
#@25 Completion for `xargs'.
(defalias 'pcomplete/xargs #[nil "\301\302\303\211\211$\210\304\305\306!!\206 \207" [pcomplete-default-completion-function pcomplete--here #[nil " \207" [pcomplete-command-completion-function] 1] nil pcomplete-find-completion-function pcomplete-arg 1] 5 (#$ . 2585)])
(defalias 'pcomplete/time 'pcomplete/xargs)
#@25 Completion for `which'.
(defalias 'pcomplete/which #[nil "\300\301\302\211\211$\205\f \202 \207" [pcomplete--here #[nil " \207" [pcomplete-command-completion-function] 1] nil] 5 (#$ . 2931)])
#@159 Return an alist correlating gids to group names in FILE.
If FILE is in hashed format (as described in the OpenSSH
documentation), this function returns nil.
(defalias 'pcmpl-unix-read-passwd-file #[(file) "\304\305 !\2034 \306\307!r\nq\210\310\216\311 !\210eb\210m\2043 \312`\304\210`{\313\"\211@B)\304y\210\202 +\314!)\207" [names file #1=#:temp-buffer fields nil file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents split-string ":" pcomplete-uniqify-list] 4 (#$ . 3132)])
#@50 Read the contents of /etc/group for group names.
(defalias 'pcmpl-unix-group-names #[nil "\205 \301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2 (#$ . 3716)])
(put 'pcmpl-unix-group-names 'byte-optimizer 'byte-compile-inline-expand)
#@50 Read the contents of /etc/passwd for user names.
(defalias 'pcmpl-unix-user-names #[nil "\205 \301!\207" [pcmpl-unix-passwd-file pcmpl-unix-read-passwd-file] 2 (#$ . 3973)])
(put 'pcmpl-unix-user-names 'byte-optimizer 'byte-compile-inline-expand)
#@37 Completion for the `chown' command.
(defalias 'pcomplete/chown #[nil "\300\301!\2042 \300\302\303\"\203 \304\305\306\307\306$\210\2022 \300\310\303\"\203+ \304\311\312\313\303\"\307\306$\210\2022 \304\314\306\307\306$\210\304\315\306\211\211$\205> \2022 \207" [pcomplete-match "\\`-" "\\`[^.]*\\'" 0 pcomplete--here #[nil "\205 \301!\207" [pcmpl-unix-passwd-file pcmpl-unix-read-passwd-file] 2] nil t "\\.\\([^.]*\\)\\'" #[nil "\205 \301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2] pcomplete-match-string 1 #[nil "\300\207" [nil] 1] #[nil "\300 \207" [pcomplete-entries] 1]] 5 (#$ . 4229)])
#@37 Completion for the `chgrp' command.
(defalias 'pcomplete/chgrp #[nil "\300\301!\204
\302\303\304\305\304$\210\302\306\304\211\211$\205 \202
\207" [pcomplete-match "\\`-" pcomplete--here #[nil "\205 \301!\207" [pcmpl-unix-group-file pcmpl-unix-read-passwd-file] 2] nil t #[nil "\300 \207" [pcomplete-entries] 1]] 5 (#$ . 4850)])
#@63 Return a list of hosts found in `pcmpl-ssh-known-hosts-file'.
(defalias 'pcmpl-ssh-known-hosts #[nil "\205P \304!\205P \305\306!r q\210\307\216\310!\210\311\312\313\314 P\312\315#\203N \316\302\317\320!\317\321!P\"\210\322\323!\203 \313 \324 \315#\203 \316\302\317\320!\317\321!P\"\210\2021 \n-\207" [pcmpl-ssh-known-hosts-file #1=#:temp-buffer ssh-hosts-list host-re file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally "\\(?:\\([-.[:alnum:]]+\\)\\|\\[\\([-.[:alnum:]]+\\)\\]:[0-9]+\\)[, ]" nil re-search-forward "^ *" t add-to-list match-string 1 2 looking-back "," line-end-position] 5 (#$ . 5190)])
#@58 Return a list of hosts found in `pcmpl-ssh-config-file'.
(defalias 'pcmpl-ssh-config-hosts #[nil "\2050 \304!\2050 \305\306!r q\210\307\216\310!\210\311\312\313\314\311\312#\203. \315\303\316\317!\"\210\202 -\207" [pcmpl-ssh-config-file #1=#:temp-buffer case-fold-search ssh-hosts-list file-readable-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-file-contents-literally nil t re-search-forward "^ *host\\(name\\)? +\\([-.[:alnum:]]+\\)" add-to-list match-string 2] 4 (#$ . 5911)])
#@103 Return a list of known SSH hosts.
Uses both `pcmpl-ssh-config-file' and `pcmpl-ssh-known-hosts-file'.
(defalias 'pcmpl-ssh-hosts #[nil "\303 \304 \305\211\203 \n@\306\300 \"\210\nA\211\204\f *)\207" [hosts h --dolist-tail-- pcmpl-ssh-known-hosts pcmpl-ssh-config-hosts nil add-to-list] 4 (#$ . 6480)])
#@41 Completion rules for the `ssh' command.
(defalias 'pcomplete/ssh #[nil "\300\301!\210\302\303\304\211\211$\207" [pcomplete-opt "1246AaCfgKkMNnqsTtVvXxYbcDeFiLlmOopRSw" pcomplete--here #[nil "\300 \207" [pcmpl-ssh-hosts] 1] nil] 5 (#$ . 6795)])
#@99 Completion rules for the `scp' command.
Includes files as well as host names followed by a colon.
(defalias 'pcomplete/scp #[nil "\300\301!\210\302\303\304\211\211$\210\202 " [pcomplete-opt "1246BCpqrvcFiloPS" pcomplete--here #[nil "\300\207" [#[(string pred action) "\306\307\"\203. \310=\203 \311\225G=\203 C\202\\ \312\313\211\313\211 \314 \n\",\315\316#\202\\ \306\317\"\203E \313\211\313\211 \314 \n\",\202\\ \320\321\313\211\313\211 \314 \n\",\"\322\323\324 \"\" \325 $)\207" [string action predicate regexp pcomplete-dir-ignore pcomplete-file-ignore string-match "\\`[^:/]+:" lambda 0 completion-table-subvert nil pcomplete-entries "" "/ssh:" "/" append all-completions mapcar #[(host) "\301P\207" [host ":"] 2] pcmpl-ssh-hosts complete-with-action table pred] 6]] 1] nil] 5 (#$ . 7045)])
(provide 'pcmpl-unix)