;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:49:18 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/pcmpl-unix.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`pcmpl-unix.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\207" [provide pcmpl-unix require pcomplete] 2) #@61 *If non-nil, a string naming the group file on your system. (custom-declare-variable 'pcmpl-unix-group-file '"/etc/group" '(#$ . -704) :type 'file :group 'pcmpl-unix) #@62 *If non-nil, a string naming the passwd file on your system. (custom-declare-variable 'pcmpl-unix-passwd-file '"/etc/passwd" '(#$ . -877) :type 'file :group 'pcmpl-unix) #@22 Completion for `cd'. (defalias 'pcomplete/cd #[nil "\300\301\302\211\211$\207" [pcomplete--here (pcomplete-dirs) nil] 5 (#$ . 1053)]) (defalias 'pcomplete/pushd 'pcomplete/cd) #@25 Completion for `rmdir'. (defalias 'pcomplete/rmdir #[nil "\300\301\302\211\211$\205\f\202\207" [pcomplete--here (pcomplete-dirs) nil] 5 (#$ . 1235)]) #@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 (pcomplete-all-entries) nil expand-file-name] 5 (#$ . 1394)]) #@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 (funcall pcomplete-command-completion-function) nil pcomplete-find-completion-function pcomplete-arg 1] 5 (#$ . 1654)]) (defalias 'pcomplete/time 'pcomplete/xargs) #@25 Completion for `which'. (defalias 'pcomplete/which #[nil "\300\301\302\211\211$\205\f\202\207" [pcomplete--here (funcall pcomplete-command-completion-function) nil] 5 (#$ . 1990)]) #@58 Return an alist correlating gids to group names in FILE. (defalias 'pcmpl-unix-read-passwd-file #[(file) "\304\305 !\2036\306\307\310!!\311\216r\nq\210\312 !\210eb\210m\2045\313`\304\210`{\314\"\211@B)\304y\210\202+\315!)\207" [names file #1=#:temp-buffer fields nil file-readable-p get-buffer-create generate-new-buffer-name " *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 (#$ . 2180)]) #@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 (#$ . 2691)]) (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 (#$ . 2948)]) (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\306\211\307\306$\210\304\314\306\211\211$\205>\2022\207" [pcomplete-match "\\`-" "\\`[^.]*\\'" 0 pcomplete--here (pcmpl-unix-user-names) nil t "\\.\\([^.]*\\)\\'" (pcmpl-unix-group-names) pcomplete-match-string 1 (pcomplete-entries)] 5 (#$ . 3204)]) #@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 (pcmpl-unix-group-names) nil t (pcomplete-entries)] 5 (#$ . 3664)])