HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/eshell/em-cmpl.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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 (lisp-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!\2102	\306\312!\2103\n\306\313!\2104\306\314!\2105\f\306\315!\2106
\306\316!\2107\306\317!\2108\306\320!\2109\306\321!\210:\306\322!\210;\306\323!\210<\306\324!\210=\306\325!\210>\326\327\330\331\332$\210\326\333\334\331\332$\210\335?\336\337#\210\335?\340\337#\210\335@\341\342#\210\335@\343\344#\210\335@\345\344#\210\335@\346\347#\210\335@\350\347#\210\335?\351\352#\210\335?\353\352#\210\326\354\355\331\332$\210\335?\356\357#\210\335?\360\361#\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 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 tab)] eshell-complete-lisp-symbol [(meta control 105)] [(meta 104)] eshell-completion-help [tab] pcomplete-expand-and-complete [(control 105)] [space] pcomplete-expand [32] [tab] eshell-pcomplete [(control 105)] completion-at-point-functions pcomplete-completions-at-point [backtab] pcomplete-reverse [(meta 63)] pcomplete-list 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 (#$ . 6260)])
#@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!\202+\211\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 (#$ . 8487)])
(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\241C\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 (#$ . 9021)])
#@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\307\312\323\"\262\202G\324V\203J\324H	=\203J\325\307O\262\326\262\327!\330\331\f!!\332\307\332\211\307
\333>\203c\334B\262\203\307\330\331@\206q\334!!\262\335!\205\201\336	\"\262\203\277@\262P\262\235\204\270\230\204\243\337!\204\270\203\255\311!\202\260\323!\203\270B\262A\262\202\203A\262\202c\340\203\321\202\341\342\211+>\262\205\341\343K!\344\345\346\347\350P,\351#\"\307\352##\262\341-\204.\205\f?\205\f\347,\351#\"!\266\207\207" [eshell-force-execution eshell-explicit-command-char pcomplete-stub eshell-path-env default-directory system-type 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 1 t eshell-parse-colon-path file-name-as-directory expand-file-name "" (ms-dos windows-nt) "." file-accessible-directory-p file-name-all-completions file-directory-p pcomplete-uniqify-list append eshell-alias 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) eshell-modules-list obarray eshell-show-lisp-completions eshell-show-lisp-alternatives] 19 (#$ . 10595)])
#@63 Eshell wrapper for `pcomplete'.

(fn &optional INTERACTIVELY)
(defalias 'eshell-pcomplete #[256 "\301\3021\211\203\303\301!\202\301 0\207\210\304 \207" [this-command pcomplete (text-read-only) call-interactively completion-at-point] 3 (#$ . 12156) "p"])
(provide 'em-cmpl)