;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:21:02 2007 ;;; from file /home/cyd/emacs/lisp/pcmpl-linux.el ;;; in Emacs version 22.0.99 ;;; 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 (#$ . 765)]) #@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 (#$ . 1266)]) #@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 (#$ . 1522)]) #@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 (#$ . 1771)]) #@43 Return a list of mounted directory names. (defalias 'pcmpl-linux-mounted-directories #[nil "\304\305\306!\2055\307\310!\311\216r q\210\312\306!\210m\2041`\313 {\314\n\315\"\211A@B*\304y\210\202+\316!)\207" [points #1=#:temp-buffer line args nil file-readable-p "/etc/mtab" generate-new-buffer " *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 (#$ . 2115)]) #@45 Return a list of mountable directory names. (defalias 'pcmpl-linux-mountable-directories #[nil "\304\305\306!\205;\307\310!\311\216r q\210\312\306!\210m\2041`\313 {\314\n\315\"\211A@B*\304y\210\202+\316\317!\320\321 B\")\207" [points #1=#:temp-buffer line args nil file-readable-p "/etc/fstab" generate-new-buffer " *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 (#$ . 2621)])