%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/
Upload File :
Create Path :
Current File : //usr/local/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\203A\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)])

Zerion Mini Shell 1.0