;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:49:17 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/pcmpl-linux.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-linux.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303!\210\304\301\305\306\307\303%\207" [provide pcmpl-linux require pcomplete custom-declare-group nil "Functions for dealing with GNU/Linux completions." :group] 6) #@58 Completion for GNU/Linux `kill', using /proc filesystem. (defalias 'pcomplete/kill #[nil "\300\301\302\"\203\303\304\305\306\302\"\307\211$\210\303\310\307\311\307$\205\202\207" [pcomplete-match "^-\\(.*\\)" 0 pcomplete--here (pcomplete-uniqify-list (split-string (pcomplete-process-result "kill" "-l"))) pcomplete-match-string 1 nil (if (file-directory-p "/proc") (let ((default-directory "/proc/")) (mapcar 'directory-file-name (pcomplete-entries "[0-9]+/$")))) identity] 5 (#$ . 820)]) #@36 Completion for GNU/Linux `umount'. (defalias 'pcomplete/umount #[nil "\300\301!\210\302\303\304\305\304$\205\202\207" [pcomplete-opt "hVafrnvt(pcmpl-linux-fs-types)" pcomplete--here (pcmpl-linux-mounted-directories) nil identity] 5 (#$ . 1321)]) #@35 Completion for GNU/Linux `mount'. (defalias 'pcomplete/mount #[nil "\300\301!\210\302\303\304\305\304$\205\202\207" [pcomplete-opt "hVanfFrsvwt(pcmpl-linux-fs-types)o?L?U?" pcomplete--here (pcomplete-entries) nil identity] 5 (#$ . 1577)]) #@61 Return a list of available fs modules on GNU/Linux systems. (defalias 'pcmpl-linux-fs-types #[nil "\302\303\304\"\305\306\307\310Q\311\312!)\")\207" [kernel-ver default-directory pcomplete-process-result "uname" "-r" mapcar #[(fsobj) "\301G\302ZO\207" [fsobj 0 2] 4] "/lib/modules/" "/fs/" pcomplete-entries "\\.o$"] 5 (#$ . 1826)]) #@43 Return a list of mounted directory names. (defalias 'pcmpl-linux-mounted-directories #[nil "\304\305\306!\2057\307\310\311!!\312\216r q\210\313\306!\210m\2043`\314 {\315\n\316\"\211A@B*\304y\210\202+\317!)\207" [points #1=#:temp-buffer line args nil file-readable-p "/etc/mtab" 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-literally line-end-position split-string " " pcomplete-uniqify-list] 4 (#$ . 2170)]) #@45 Return a list of mountable directory names. (defalias 'pcmpl-linux-mountable-directories #[nil "\304\305\306!\205=\307\310\311!!\312\216r q\210\313\306!\210m\2043`\314 {\315\n\316\"\211A@B*\304y\210\202+\317\320!\321\322 B\")\207" [points #1=#:temp-buffer line args nil file-readable-p "/etc/fstab" 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-literally line-end-position split-string "\\s-+" pcomplete-pare-list pcomplete-uniqify-list "swap" pcmpl-linux-mounted-directories] 5 (#$ . 2704)])