| 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-linux.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-linux.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!\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 #[nil "\300\301\302\303\304\"!!\207" [pcomplete-uniqify-list split-string pcomplete-process-result "kill" "-l"] 5] pcomplete-match-string 1 nil #[nil "\300\301!\205 \302\301\303\304#\207" [file-directory-p "/proc" directory-files nil "\\`[0-9]+\\'"] 4] identity] 5 (#$ . 750)])
#@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 #[nil "\300 \207" [pcmpl-linux-mounted-directories] 1] nil identity] 5 (#$ . 1267)])
#@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 #[nil "\300 \207" [pcomplete-entries] 1] nil identity] 5 (#$ . 1544)])
#@61 Return a list of available fs modules on GNU/Linux systems.
(defalias 'pcmpl-linux-fs-types #[nil "\301\302\303\"\304\305\306Q!)\207" [kernel-ver pcomplete-process-result "uname" "-r" directory-files "/lib/modules/" "/kernel/fs/"] 4 (#$ . 1814)])
#@43 Return a list of mounted directory names.
(defalias 'pcmpl-linux-mounted-directories #[nil "\304\305\306!\2055 \307\310!r q\210\311\216\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 (#$ . 2069)])
#@99 Destructively remove from list L all elements matching any in list R.
Test is done using `equal'.
(defalias 'pcomplete-pare-list #[(l r) "\203 \203 @ \235\203 A\211\204 \211\203C \nA\203< \203< \n\211A@) \235\203< \n\211\211AA)\241\210\202 \nA\211\204 )\207" [l r m x] 3 (#$ . 2575)])
#@45 Return a list of mountable directory names.
(defalias 'pcmpl-linux-mountable-directories #[nil "\304\305\306!\205; \307\310!r q\210\311\216\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 (#$ . 2884)])