ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/eshell/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/eshell/em-cmpl.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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&\210\314\344\316\317\345DD\346\347\350\"\324\347\351N\312\305&\210\314\352\316\317\353DD\346\354\350\"\324\354\351N\312\305&\210\314\355\316\317\356DD\346\357\350\"\324\357\351N\312\305&\210\314\360\316\317\361DD\346\362\350\"\324\362\351N\312\305&\210\314\363\316\317\364DD\346\365\350\"\324\365\351N\312\301&\210\314\366\316\317\367DD\346\370\350\"\324\370\351N\312\305&\210\314\371\316\317\372DD\346\373\350\"\324\373\351N\312\305&\210\314\374\316\317\375DD\346\376\350\"\324\376\351N\312\305&\210\314\377\316\317\201@ DD\346\201A \350\"\324\201A \351N\312\305&\210\314\201B \316\317\201C DD\346\201D \350\"\324\201D \351N\312\305&\210\314\201E \316\317\201F DD\346\201G \350\"\324\201G \351N\312\305&\210\314\201H \316\317\201I DD\346\201J \350\"\324\201J \351N\312\305&\210\314\201K \316\317\201L DD\346\201M \350\"\324\201M \351N\312\305&\210\314\201N \316\317\201O DD\346\201P \350\"\324\201P \351N\312\305&\210\314\201Q \316\317\201R DD\346\201S \350\"\324\201S \351N\312\305&\210\314\201T \316\317\201U DD\346\201V \350\"\324\201V \351N\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)) eshell-cmpl-file-ignore #[0 "\300\207" [#1="~\\'"] 1 #1#] documentation-property pcomplete-file-ignore variable-documentation custom-type 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 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] 10)
#@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 (#$ . 5695) 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 (#$ . 5917)])
#@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 (#$ . 8144)])
(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 (#$ . 8678)])
#@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\270 B\262A\262\202\203 A\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 (#$ . 10252)])
#@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 (#$ . 11813) "p"])
(provide 'em-cmpl)
Kontol Shell Bypass