;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\315\316\317\320\321DD\322\323\324\325\326&\210\315\327\317\320\330DD\331\325\332%\210\315\333\317\320\334DD\335\325\332%\210\315\336\317\320\337DD\340\325\332%\210\315\341\317\320\342DD\343\325\344%\207" [require pcomplete esh-mode esh-util em-dirs 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 #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 #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 #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 #1#] "If non-nil, don't allow completion while a process is running." eshell-command-completions-alist #[0 "\300\207" [(("acroread" . "\\.pdf\\'") ("xpdf" . "\\.pdf\\'") ("gunzip" . "\\.t?gz\\'") ("bunzip2" . "\\.t?bz2\\'") ("unxz" . "\\.t?xz\\'") ("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 #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))] 8)
#@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 (#$ . 2439)])
(byte-code "\300\301\302\303\304DD\305\306!\307\306\310N%\210\300\311\302\303\312DD\305\313!\307\313\310N%\210\300\314\302\303\315DD\305\316!\307\316\310N%\210\300\317\302\303\320DD\305\321!\307\321\310N%\210\300\322\302\303\323DD\305\324!\307\324\310N\325\326&\210\327\322\330\331#\210\300\332\302\303\333DD\305\334!\307\334\310N%\210\300\335\302\303\336DD\305\337!\307\337\310N%\210\300\340\302\303\341DD\305\342!\307\342\310N%\210\300\343\302\303\344DD\305\345!\307\345\310N%\210\300\346\302\303\347DD\305\350!\307\350\310N%\210\300\351\302\303\352DD\305\353!\307\353\310N%\210\300\354\302\303\355DD\305\356!\307\356\310N%\210\300\357\302\303\360DD\305\361!\307\361\310N%\210\300\362\302\303\363DD\305\364!\307\364\310N%\210\300\365\302\303\366DD\305\367!\307\367\310N%\210\300\370\302\303\371DD\305\372!\307\372\310N%\207" [custom-declare-variable eshell-cmpl-file-ignore funcall function #[0 "\300\207" ["~\\'"] 1 #1=""] eshell-cmpl--custom-variable-docstring pcomplete-file-ignore :type custom-type eshell-cmpl-dir-ignore #[0 "\300\207" ["\\`\\(\\.\\.?\\|CVS\\)/\\'"] 1 #1#] pcomplete-dir-ignore eshell-cmpl-ignore-case #[0 "\301>\207" [system-type (ms-dos windows-nt)] 2 #1#] completion-ignore-case eshell-cmpl-autolist #[0 "\300\207" [nil] 1 #1#] pcomplete-autolist eshell-cmpl-suffix-list #[0 "\300\301D\207" [47 58] 2 #1#] pcomplete-suffix-list :group pcomplete make-obsolete-variable nil "24.1" eshell-cmpl-recexact #[0 "\300\207" [nil] 1 #1#] pcomplete-recexact eshell-cmpl-man-function #[0 "\300\207" [man] 1 #1#] pcomplete-man-function eshell-cmpl-compare-entry-function #[0 "\300\207" [file-newer-than-file-p] 1 #1#] pcomplete-compare-entry-function eshell-cmpl-expand-before-complete #[0 "\300\207" [nil] 1 #1#] pcomplete-expand-before-complete eshell-cmpl-cycle-completions #[0 "\300\207" [t] 1 #1#] pcomplete-cycle-completions eshell-cmpl-cycle-cutoff-length #[0 "\300\207" [5] 1 #1#] pcomplete-cycle-cutoff-length eshell-cmpl-restore-window-delay #[0 "\300\207" [1] 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 #1#] pcomplete-command-completion-function eshell-cmpl-command-name-function #[0 "\300\207" [eshell-completion-command-name] 1 #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#\"\207" [eshell-cmpl-command-name-function eshell-command-completions-alist assoc nil pcomplete-entries make-closure #[257 "\302
!\206\300\203\303\300\"\205\301?\206\301
!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"]] 8] nil] 5]] 1 #1#] pcomplete-default-completion-function eshell-cmpl-use-paring #[0 "\300\207" [t] 1 #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 (#$ . 5658) nil])
(defvar eshell-cmpl-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\301
\314\315#\210\301
\314\315#\210\301
\316\317#\210\207" [make-sparse-keymap define-key [(control 105)] completion-at-point [backtab] pcomplete-reverse [(meta 63)] completion-help-at-point [(meta control 105)] eshell-complete-lisp-symbol [3 134217832] eshell-completion-help "	" pcomplete-expand-and-complete " " pcomplete-expand] 5))
#@101 Non-nil if Eshell-Cmpl mode is enabled.
Use the command `eshell-cmpl-mode' to change this variable.
(defvar eshell-cmpl-mode nil (#$ . 6358))
(make-variable-buffer-local 'eshell-cmpl-mode)
#@644 Minor mode that provides a keymap when `eshell-cmpl' active.

This is a minor mode.  If called interactively, toggle the
`Eshell-Cmpl mode' mode.  If the prefix argument is positive, enable
the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `eshell-cmpl-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

\{eshell-cmpl-mode-map}

(fn &optional ARG)
(defalias 'eshell-cmpl-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [eshell-cmpl-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks eshell-cmpl-mode-hook eshell-cmpl-mode-on-hook eshell-cmpl-mode-off-hook called-interactively-p any message "Eshell-Cmpl mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 6554) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar eshell-cmpl-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\310\211%\207" [eshell-cmpl-mode-map eshell-cmpl-mode-hook variable-documentation put "Hook run after entering or leaving `eshell-cmpl-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode eshell-cmpl-mode] 6)
#@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!\210!	\306\312!\210\"\n\306\313!\210#\306\314!\210$\f\315\316!\203G\306\316!\210%\306\317!\210&\306\320!\210'\306\321!\210(\306\322!\210)\306\323!\210*\306\324!\210+\306\325!\210,\306\326!\210-\327\330\331\332\333$\210\327\334\335\332\333$\210\327\336\337\332\333$\210\340 \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 completion-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 completion-at-point-functions pcomplete-completions-at-point eshell-cmpl-mode 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] 5 (#$ . 8355)])
#@50 Return the command name, possibly sans globbing.
(defalias 'eshell-completion-command-name #[0 "\302\303\304!!\211G\305V\203\211\305H=\203\211\306\307O\202\211\262
	\310>\203(\311
!\207\207" [eshell-explicit-command-char system-type file-name-nondirectory pcomplete-arg first 0 1 nil (ms-dos windows-nt) file-name-sans-extension] 4 (#$ . 10103)])
(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\317\"\262\3120\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\262
GGU\204\271\326\327!\210
\330\312\203\334@:\203\321@@\331=\203\321
\262
A\262
T\262\202\274\211\203\355\211T\233\262\211T\233\262\266
GGU\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
\202;\211;\203;\307\310\"\210\311
!\262
\211\206@\312\207" [eshell-do-eval eshell-commands t quote cl--assertion-failed (eq (car result) 'quote) number-to-string string-match "\\.\\.\\.+/" eshell-expand-multiple-dots #1#] 5 "\n\n(fn ARG)"]] 10 (#$ . 10632)])
#@48 Generate list of applicable, visible commands.
(defalias 'eshell--complete-commands-list #[0 "G\302V\205\302H	=\205\303\304O\211\305\306\307\"!\207" [pcomplete-stub eshell-explicit-command-char 0 1 nil completion-table-dynamic make-closure #[257 "\306
!\203	\203\307\310\311\307\312\313#\"\207\307\311
\314\"\207\315 \316\317\n!!\320\307\211\203\206\211@\316\317\2062\321!!\262
\322
!\205A\323\"\211\203~\211@
P\262\211\235\204w\230\204`\324!\204w	\203k\310!\202o\314!\203w\211B\262
A\266\202\202A\210
A\266\202\202%\210\325\300\203\220
\202\304\326\327\330!\205\233\330!\331\332\333\334\335\fP\336#\"\307\337##\262\326\f\204\274
\205\302?\205\302\334\336#\"!\207" [V0 eshell-force-execution default-directory obarray eshell-show-lisp-completions eshell-show-lisp-alternatives file-name-directory nil file-readable-p pcomplete-entries make-closure #[257 "\302
!\206\300\203\303\300\"\205\301?\206\301
!\207" [V0 V1 file-directory-p string-match] 4 "\n\n(fn F)"] file-executable-p 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 "\211\300\301O\207" [7 nil] 4 "\n\n(fn NAME)"] all-completions "eshell/" functionp (eshell-find-alias-function)] 15 "\n\n(fn FILENAME)"]] 5 (#$ . 12305)])
(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)