| Server IP : 217.160.0.212 / Your IP : 216.73.216.15 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(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 #[0 "\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 #[0 "\300\301\302\303\304\"!!\207" [pcomplete-uniquify-list split-string pcomplete-process-result "kill" "-l"] 5] pcomplete-match-string 1 nil #[0 "\300\301!\205 \302\301\303\304#\207" [file-directory-p "/proc" directory-files nil "\\`[0-9]+\\'"] 4] identity] 5 (#$ . 167)])
#@36 Completion for GNU/Linux `umount'.
(defalias 'pcomplete/umount #[0 "\300\301!\210\302\303\304\305\304$\205 \202 \207" [pcomplete-opt "hVafrnvt(pcmpl-linux-fs-types)" pcomplete--here #[0 "\300 \207" [pcmpl-linux-mounted-directories] 1] nil identity] 5 (#$ . 679)])
#@35 Completion for GNU/Linux `mount'.
(defalias 'pcomplete/mount #[0 "\300\301!\210\302\303\304\305\304$\205 \202 \207" [pcomplete-opt "hVanfFrsvwt(pcmpl-linux-fs-types)o?L?U?" pcomplete--here #[0 "\300 \207" [pcomplete-entries] 1] nil identity] 5 (#$ . 951)])
(defconst pcmpl-linux-fs-modules-path-format "/lib/modules/%s/kernel/fs/")
#@61 Return a list of available fs modules on GNU/Linux systems.
(defalias 'pcmpl-linux-fs-types #[0 "\301\302\303\"\304\305\"!\207" [pcmpl-linux-fs-modules-path-format pcomplete-process-result "uname" "-r" directory-files format] 5 (#$ . 1291)])
(defconst pcmpl-linux-mtab-file "/etc/mtab")
#@43 Return a list of mounted directory names.
(defalias 'pcmpl-linux-mounted-directories #[0 "\301\302!\2058 \303\304\305\"r\211q\210\306\307\"\216\310!\210m\2043 `\311 {\312\313\"\211A@B\262\266\301y\210\202 *\210\314!\207" [pcmpl-linux-mtab-file nil file-readable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents-literally line-end-position split-string " " pcomplete-uniquify-list] 6 (#$ . 1586)])
#@109 Destructively remove from list L all elements matching any in list R.
Test is done using `equal'.
(fn L R)
(defalias 'pcomplete-pare-list #[514 "\203 \211\203 @\235\203 A\262\202 \211\203< \211A\2035 \2035 \211A@\235\2035 \211AA\241\210\202 \211A\262\202 \210\207" [] 5 (#$ . 2085)])
#@45 Return a list of mountable directory names.
(defalias 'pcmpl-linux-mountable-directories #[0 "\300\301\302!\205> \303\304\305\"r\211q\210\306\307\"\216\310\302!\210m\2043 `\311 {\312\313\"\211A@B\262\266\300y\210\202 *\210\314\315!\316\317 B\"\207" [nil file-readable-p "/etc/fstab" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 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] 6 (#$ . 2393)])