| Current File : //proc/thread-self/root/kunden/kunden/proc/self/root/usr/share/emacs/27.2/lisp/pcmpl-linux.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\207" [provide pcmpl-linux require pcomplete] 2)
#@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-uniquify-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 (#$ . 491)])
#@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 (#$ . 1009)])
#@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 (#$ . 1286)])
#@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 (#$ . 1556)])
#@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents-literally line-end-position split-string " " pcomplete-uniquify-list] 4 (#$ . 1811)])
#@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\203= \nA\2036 \2036 \nA@ \235\2036 \n\211AA\241\210\202 \nA\211\204 )\207" [l r m] 3 (#$ . 2302)])
#@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*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents-literally line-end-position split-string "\\s-+" pcomplete-pare-list pcomplete-uniquify-list "swap" pcmpl-linux-mounted-directories] 5 (#$ . 2597)])