%PDF-
%PDF-
Mini Shell
Mini Shell
;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\300\302!\210\300\303!\210\304\305\306\307\310\311\312\313&\210\314\315\316\317\320DD\321\322\323\324\325\312\305& \210\314\326\316\317\327DD\330\324\331\312\305&\210\314\332\316\317\333DD\334\324\331\312\305&\210\314\335\316\317\336DD\337\324\331\312\305&\210\314\340\316\317\341DD\342\324\343\312\305&\207" [require pcomplete esh-mode esh-util custom-declare-group eshell-cmpl nil "This module provides a programmable completion function bound to\nthe TAB key, which allows for completing command names, file names,\nvariable names, arguments, etc." :tag "Argument completion" :group eshell-module custom-declare-variable eshell-cmpl-load-hook funcall function #[0 "\300\207" [nil] 1] "A list of functions to run when `eshell-cmpl' is loaded." :version "24.1" :type hook eshell-show-lisp-completions #[0 "\300\207" [nil] 1] "If non-nil, include Lisp functions in the command completion list.\nIf this variable is nil, Lisp completion can still be done in command\nposition by using M-TAB instead of TAB." boolean eshell-show-lisp-alternatives #[0 "\300\207" [t] 1] "If non-nil, and no other completions found, show Lisp functions.\nSetting this variable means nothing if `eshell-show-lisp-completions'\nis non-nil." eshell-no-completion-during-jobs #[0 "\300\207" [t] 1] "If non-nil, don't allow completion while a process is running." eshell-command-completions-alist #[0 "\300\207" [(("acroread" . "\\.pdf\\'") ("xpdf" . "\\.pdf\\'") ("ar" . "\\.[ao]\\'") ("gcc" . "\\.[Cc]\\([Cc]\\|[Pp][Pp]\\)?\\'") ("g++" . "\\.[Cc]\\([Cc]\\|[Pp][Pp]\\)?\\'") ("cc" . "\\.[Cc]\\([Cc]\\|[Pp][Pp]\\)?\\'") ("CC" . "\\.[Cc]\\([Cc]\\|[Pp][Pp]\\)?\\'") ("acc" . "\\.[Cc]\\([Cc]\\|[Pp][Pp]\\)?\\'") ("bcc" . "\\.[Cc]\\([Cc]\\|[Pp][Pp]\\)?\\'") ("readelf" . "\\(\\`[^.]*\\|\\.\\([ao]\\|so\\)\\)\\'") ("objdump" . "\\(\\`[^.]*\\|\\.\\([ao]\\|so\\)\\)\\'") ("nm" . "\\(\\`[^.]*\\|\\.\\([ao]\\|so\\)\\)\\'") ("gdb" . "\\`\\([^.]*\\|a\\.out\\)\\'") ("dbx" . "\\`\\([^.]*\\|a\\.out\\)\\'") ("sdb" . "\\`\\([^.]*\\|a\\.out\\)\\'") ("adb" . "\\`\\([^.]*\\|a\\.out\\)\\'"))] 1] "An alist that defines simple argument type correlations.\nThis is provided for common commands, as a simplistic alternative\nto writing a completion function." (repeat (cons string regexp))] 10)
#@95 Generate the docstring of a variable derived from a pcomplete-* variable.
(fn PCOMPLETE-VAR)
(defalias 'eshell-cmpl--custom-variable-docstring #[257 "\300\301\302\303\304#\305!#\207" [format "%s\n\nIts value is assigned to `%s' locally after eshell starts." documentation-property variable-documentation t symbol-name] 7 (#$ . 2687)])
(byte-code "\300\301\302\303\304DD\305\306!\307\306\310N\311\312&\210\300\313\302\303\314DD\305\315!\307\315\310N\311\312&\210\300\316\302\303\317DD\305\320!\307\320\310N\311\312&\210\300\321\302\303\322DD\305\323!\307\323\310N\311\312&\210\300\324\302\303\325DD\305\326!\307\326\310N\311\327&\210\330\324\331\332#\210\300\333\302\303\334DD\305\335!\307\335\310N\311\312&\210\300\336\302\303\337DD\305\340!\307\340\310N\311\312&\210\300\341\302\303\342DD\305\343!\307\343\310N\311\312&\210\300\344\302\303\345DD\305\346!\307\346\310N\311\312&\210\300\347\302\303\350DD\305\351!\307\351\310N\311\312&\210\300\352\302\303\353DD\305\354!\307\354\310N\311\312&\210\300\355\302\303\356DD\305\357!\307\357\310N\311\312&\210\300\360\302\303\361DD\305\362!\307\362\310N\311\312&\210\300\363\302\303\364DD\305\365!\307\365\310N\311\312&\210\300\366\302\303\367DD\305\370!\307\370\310N\311\312&\210\300\371\302\303\372DD\305\373!\307\373\310N\311\312&\207" [custom-declare-variable eshell-cmpl-file-ignore funcall function #[0 "\300\207" [#1="~\\'"] 1 #1#] eshell-cmpl--custom-variable-docstring pcomplete-file-ignore :type custom-type :group eshell-cmpl eshell-cmpl-dir-ignore #[0 "\300\207" [#2="\\`\\(\\.\\.?\\|CVS\\)/\\'"] 1 #2#] pcomplete-dir-ignore eshell-cmpl-ignore-case #[0 "\301>\207" [system-type (ms-dos windows-nt)] 2] pcomplete-ignore-case eshell-cmpl-autolist #[0 "\300\207" [nil] 1] pcomplete-autolist eshell-cmpl-suffix-list #[0 "\300\301D\207" [47 58] 2] pcomplete-suffix-list pcomplete make-obsolete-variable nil "24.1" eshell-cmpl-recexact #[0 "\300\207" [nil] 1] pcomplete-recexact eshell-cmpl-man-function #[0 "\300\207" [man] 1] pcomplete-man-function eshell-cmpl-compare-entry-function #[0 "\300\207" [file-newer-than-file-p] 1] pcomplete-compare-entry-function eshell-cmpl-expand-before-complete #[0 "\300\207" [nil] 1] pcomplete-expand-before-complete eshell-cmpl-cycle-completions #[0 "\300\207" [t] 1] pcomplete-cycle-completions eshell-cmpl-cycle-cutoff-length #[0 "\300\207" [5] 1] pcomplete-cycle-cutoff-length eshell-cmpl-restore-window-delay #[0 "\300\207" [1] 1] pcomplete-restore-window-delay eshell-command-completion-function #[0 "\300\207" [#[0 "\300\301\302\211\211$\207" [pcomplete--here #[0 "\300 \207" [eshell-complete-commands-list] 1] nil] 5]] 1] pcomplete-command-completion-function eshell-cmpl-command-name-function #[0 "\300\207" [eshell-completion-command-name] 1] pcomplete-command-name-function eshell-default-completion-function #[0 "\300\207" [#[0 "\300\301\302\211\211$\205\f \202 \207" [pcomplete--here #[0 "\302 \"A\303\304\303\305\306\307\310\311\"\312\"\313\314%\"\207" [eshell-cmpl-command-name-function eshell-command-completions-alist assoc nil pcomplete-entries make-byte-code 257 "\302!\206 \300\203 \303\300\"\205 \301?\206 \301!\207" vconcat vector [file-directory-p string-match] 4 "\n\n(fn F)"] 11] nil] 5]] 1] pcomplete-default-completion-function eshell-cmpl-use-paring #[0 "\300\207" [t] 1] pcomplete-use-paring] 8)
#@57 Try to complete the text around point as a Lisp symbol.
(defalias 'eshell-complete-lisp-symbol #[0 "\301\302 )\207" [completion-at-point-functions (elisp-completion-at-point) completion-at-point] 1 (#$ . 6038) nil])
#@36 Initialize the completions module.
(defalias 'eshell-cmpl-initialize #[0 "\306\301!\210\306\303!\210\n\306\305!\210\f\306\307!\210\310\306\311!\2101 \306\312!\2102\n\306\313!\2103 \306\314!\2104\f\315\316!\203G \306\316!\2105\306\317!\2106\306\320!\2107\306\321!\2108\306\322!\2109\306\323!\210:\306\324!\210;\306\325!\210<\306\326!\210=\327\330\331\332\333$\210\327\334\335\332\333$\210\336>\337\340#\210\336?\341\342#\210\336?\343\344#\210\336?\345\344#\210\336?\346\347#\210\336?\350\347#\210\336>\351\352#\210\327\353\354\332\333$\210\336>\355\356#\210\336>\357\360#\207" [eshell-command-completion-function pcomplete-command-completion-function eshell-cmpl-command-name-function pcomplete-command-name-function eshell-default-completion-function pcomplete-default-completion-function make-local-variable pcomplete-parse-arguments-function eshell-complete-parse-arguments pcomplete-file-ignore pcomplete-dir-ignore pcomplete-ignore-case pcomplete-autolist boundp pcomplete-suffix-list pcomplete-recexact pcomplete-man-function pcomplete-compare-entry-function pcomplete-expand-before-complete pcomplete-cycle-completions pcomplete-cycle-cutoff-length pcomplete-restore-window-delay pcomplete-use-paring add-hook eshell-mode-hook #[0 "\302\301!\210\211\207" [eshell-special-chars-outside-quoting comint-file-name-quote-list make-local-variable] 2] nil t pcomplete-quote-arg-hook eshell-quote-backslash define-key [(meta control 105)] eshell-complete-lisp-symbol [(meta 104)] eshell-completion-help [tab] pcomplete-expand-and-complete [(control 105)] [space] pcomplete-expand [32] [(control 105)] completion-at-point completion-at-point-functions pcomplete-completions-at-point [backtab] pcomplete-reverse [(meta 63)] completion-help-at-point eshell-cmpl-file-ignore eshell-cmpl-dir-ignore eshell-cmpl-ignore-case eshell-cmpl-autolist eshell-cmpl-suffix-list eshell-cmpl-recexact eshell-cmpl-man-function eshell-cmpl-compare-entry-function eshell-cmpl-expand-before-complete eshell-cmpl-cycle-completions eshell-cmpl-cycle-cutoff-length eshell-cmpl-restore-window-delay eshell-cmpl-use-paring eshell-mode-map eshell-command-map] 5 (#$ . 6261)])
#@50 Return the command name, possibly sans globbing.
(defalias 'eshell-completion-command-name #[0 "\302\303\304!!\211G\305V\203 \211\305H=\203 \306\307\"\202 \211\262 \310>\203* \311!\202+ \211\207" [eshell-explicit-command-char system-type file-name-nondirectory pcomplete-arg first 0 substring 1 (ms-dos windows-nt) file-name-sans-extension] 4 (#$ . 8466)])
(defalias 'eshell-completion-help #[0 "`U\203 \301 \207\302\303!\207" [eshell-last-output-end describe-prefix-bindings call-interactively pcomplete-help] 2 nil nil])
#@60 Parse the command line arguments for `pcomplete-argument'.
(defalias 'eshell-complete-parse-arguments #[0 "\203 \203 \303\304!\210\305\306\307\"\210\310 \212\311 \210`)\307C\312\211\n\313>\2037 \314\315#\210U\2033 \312\210\310 \262\3162D \312\317\"\2620\211\262\203| \211@\320>\203a \211A@T\262\317\"\262\202| \211@\321=\203s \322 \210\305\306\307\"\210\202| \303\304!\210\305\306\307\"\210\323S\324\"\203\215 \303\304!\210\305\306\307\"\210\211W\203\250 \323\325\"\203\241 C\244\210\211T\262\202\216 \210A\262GGU\204\271 \326\327!\210\330\312\203\334 @:\203\321 @@\331=\203\321 \262A\262T\262\202\274 \211\203\355 \211T\233\262\211T\233\262\266GGU\204\373 \326\332!\210\203#\206`Sfz\333=\203#S\206`Sf\334=\204#\335C\244\210`C\244\210\336\337\"B\207" [eshell-no-completion-during-jobs eshell-last-async-proc this-command insert-and-inherit " " throw pcompleted t point-marker eshell-bol nil (pcomplete-expand pcomplete-expand-and-complete) run-hook-with-args eshell-expand-input-functions eshell-incomplete eshell-parse-arguments (123 60) 40 eshell-complete-lisp-symbol get-text-property comment arg-begin cl--assertion-failed (= (length args) (length posns)) 0 eshell-operator (= (length args) (length posns)) 32 92 #1="" mapcar #[257 "\211<\203 \300\301D\302\"\211@\303=\204 \304\305!\210\211A@\262\202 \211\211\247\203) \306!\262\211\206. \307\207" [eshell-do-eval eshell-commands t quote cl--assertion-failed (eq (car result) 'quote) number-to-string #1#] 4 "\n\n(fn ARG)"]] 10 (#$ . 9004)])
#@48 Generate list of applicable, visible commands.
(defalias 'eshell-complete-commands-list #[0 "\306 \307\310!\2030 \203& \307\311\312\307\313\314\315\316\317\"\320\"\321\322%\"\266\202\202\374 \307\312\323\"\262\202\374 G\324V\203J \324H =\203J \325\326\"\262\327\262\330 \331\332 !!\333\307\333\211\307\203\272 \331\332@\206d \334!!\262\335!\205t \336 \"\262\203\262 @\262P\262\235\204\253 \230\204\226 \337!\204\253 \203\240 \311!\202\243 \323!\203\253 B\262A\262\202v A\262\202V \340\203\304 \202\371 \341\342\343!\205\317 \343 !\344\345\346\347\350P\f\351#\"\307\352##\262\341
\204\361 +\205\367 ?\205\367 \347 \f\351#\"!\266\207\207" [eshell-force-execution eshell-explicit-command-char pcomplete-stub default-directory obarray eshell-show-lisp-completions pcomplete-arg nil file-name-directory file-readable-p pcomplete-entries make-byte-code 257 "\302!\206 \300\203 \303\300\"\205 \301?\206 \301!\207" vconcat vector [file-directory-p string-match] 4 "\n\n(fn F)" file-executable-p 0 substring 1 t eshell-get-path file-name-as-directory expand-file-name "" "." file-accessible-directory-p file-name-all-completions file-directory-p pcomplete-uniquify-list append fboundp eshell-alias-completions eshell-winnow-list mapcar #[257 "\300\301\"\207" [substring 7] 4 "\n\n(fn NAME)"] all-completions "eshell/" functionp (eshell-find-alias-function) eshell-show-lisp-alternatives] 19 (#$ . 10578)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias eshell-pcomplete completion-at-point nil make-obsolete "27.1" provide em-cmpl] 4)
Zerion Mini Shell 1.0