WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/eshell
Viewing File: /usr/share/emacs/24.3/lisp/eshell/em-cmpl.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:56:00 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/eshell/em-cmpl.el
;;; in Emacs version 24.3.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\302\303\304\305\306\307\310\311&\210\312\313\304\314\315\316\317\320\310\303&	\210\312\321\304\322\317\323\310\303&\210\312\324\325\326\317\323\310\303&\210\312\327\325\330\317\323\310\303&\210\312\331\332\333\317\334\310\303&\210\312\335\336\337\340\341\"\317\340\342N\310\303&\210\312\343\344\337\345\341\"\317\345\342N\310\303&\210\312\346\347\337\350\341\"\317\350\342N\310\303&\210\312\351\304\337\352\341\"\317\352\342N\310\303&\210\312\353\354\337\355\341\"\317\355\342N\310\356&\210\312\357\304\337\360\341\"\317\360\342N\310\303&\210\312\361\362\337\363\341\"\317\363\342N\310\303&\210\312\364\365\337\366\341\"\317\366\342N\310\303&\210\312\367\304\337\370\341\"\317\370\342N\310\303&\210\312\371\325\337\372\341\"\317\372\342N\310\303&\210\312\373\374\337\375\341\"\317\375\342N\310\303&\210\312\376\377\337\201@\341\"\317\201@\342N\310\303&\210\312\201A\201B\337\201C\341\"\317\201C\342N\310\303&\210\312\201D\201E\337\201F\341\"\317\201F\342N\310\303&\210\312\201G\201H\337\201I\341\"\317\201I\342N\310\303&\210\312\201J\325\337\201K\341\"\317\201K\342N\310\303&\207" [require 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 "A list of functions to run when `eshell-cmpl' is loaded." :version "24.1" :type hook eshell-show-lisp-completions "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 t "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 "If non-nil, don't allow completion while a process is running." eshell-command-completions-alist '(("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\\)\\'")) "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 "~\\'" documentation-property pcomplete-file-ignore variable-documentation custom-type eshell-cmpl-dir-ignore "\\`\\(\\.\\.?\\|CVS\\)/\\'" pcomplete-dir-ignore eshell-cmpl-ignore-case (eshell-under-windows-p) pcomplete-ignore-case eshell-cmpl-autolist pcomplete-autolist eshell-cmpl-suffix-list (list 47 58) pcomplete-suffix-list pcomplete eshell-cmpl-recexact pcomplete-recexact eshell-cmpl-man-function 'man pcomplete-man-function eshell-cmpl-compare-entry-function 'file-newer-than-file-p pcomplete-compare-entry-function eshell-cmpl-expand-before-complete pcomplete-expand-before-complete eshell-cmpl-cycle-completions pcomplete-cycle-completions eshell-cmpl-cycle-cutoff-length 5 pcomplete-cycle-cutoff-length eshell-cmpl-restore-window-delay 1 pcomplete-restore-window-delay eshell-command-completion-function #'(lambda nil (pcomplete-here (eshell-complete-commands-list))) pcomplete-command-completion-function eshell-cmpl-command-name-function 'eshell-completion-command-name pcomplete-command-name-function eshell-default-completion-function #'(lambda nil (while (pcomplete-here (pcomplete-dirs-or-entries (cdr (assoc (funcall eshell-cmpl-command-name-function) eshell-command-completions-alist)))))) pcomplete-default-completion-function eshell-cmpl-use-paring pcomplete-use-paring] 10)
#@36 Initialize the completions module.
(defalias 'eshell-cmpl-initialize #[nil "\306\307!\204\f\310\311\312\211#\210\313\301!\210\313\303!\210\n\313\305!\210\f\313\314!\210\315\f\313\316!\2106\313\317!\2107\313\320!\2108\313\321!\2109\313\322!\210:\313\323!\210;\313\324!\210<\313\325!\210=\313\326!\210>\313\327!\210?\313\330!\210@\313\331!\210A\313\332!\210B\333\334\335\336\312$\210\333\337\340\336\312$\210\341C\342\343#\210\341C\344\343#\210\341D\345\346#\210\341D\347\350#\210\341D\351\350#\210\341D\352\353#\210\341D\354\353#\210\341C\355\356#\210\341C\357\356#\210\333\360\361\336\312$\210\341C\362\363#\210\341C\364\365#\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 fboundp pcomplete load "pcmpl-auto" t 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 #[nil "\302\301!\210\211\207" [eshell-special-chars-outside-quoting pcomplete-arg-quote-list make-local-variable] 2] nil pcomplete-quote-arg-hook eshell-quote-backslash define-key [(meta tab)] lisp-complete-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 (#$ . 4813)])
#@50 Return the command name, possibly sans globbing.
(defalias 'eshell-completion-command-name #[nil "\303\304\305!!\211G\306V\203\306H	=\203\307\310O\202\n\311>\203*\312!\202+)\207" [cmd eshell-explicit-command-char system-type file-name-nondirectory pcomplete-arg first 0 1 nil (ms-dos windows-nt) file-name-sans-extension] 4 (#$ . 7106)])
(defalias 'eshell-completion-help #[nil "`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 #[nil "\203	\203\306\307!\210\310\311\312\"\210\313 \212\314 \210`)\312C\315\211%&\316>\203?\317\320
%#\210
%U\203;\315\210\313 %\321\322\215\211\203{\n@\323>\203`\n\211'A@)T\324
%\"\202{\n@\325=\203r\326 \210\310\311\312\"\210\202{\306\307!\210\310\311\312\"\210\327%S\330\"\203\215\306\307!\210\310\311\312\"\210
\211(%W\203\256\327(\331\"\203\245\f(C\244\210(T\211(\202\221)\fAG\fGU\204\300\332\333\334C\"\210\335\315\211)*+,,\203\366,@:\203\351,\211'@@)\336=\203\351+*,A,+T+\202\314*\203*T\233*T\f\233,G\fGU\204\332\333\337C\"\210\2038%Sfz\340=\2038%SSf\341=\2048\342C\244\210\f`C\244\210\343\344\"\f-B\207" [eshell-no-completion-during-jobs eshell-last-async-proc delim args posns begin 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 (byte-code "\303\304	\"\207" [begin end args nil eshell-parse-arguments] 4) (123 60) eshell-parse-arguments 40 lisp-complete-symbol get-text-property comment arg-begin signal cl-assertion-failed (= (length args) (length posns)) 0 eshell-operator (= (length args) (length posns)) 32 92 #1="" mapcar #[(arg) "<\203\"\304\305D\306\"\211@\307=\204\310\311\312C\"\210	\211A@*\202#\211\247\203-\313!\2062\314)\207" [arg result x val eshell-do-eval eshell-commands t quote signal cl-assertion-failed (eq (car result) 'quote) number-to-string #1#] 4] end this-command x pos final l i a] 6 (#$ . 7635)])
#@48 Generate list of applicable, visible commands.
(defalias 'eshell-complete-commands-list #[nil "\306 \307\310	!\203\307\311\312\"\262\202\366	G\313V\203-	\313H\n=\203-	\314\307O\211\315\316\f!\317\320!!!\"\321#\307$\321\211%&\307'
\203\253\317\320
@\206T\322!!#\323#!\205d\324	#\"\211$\203\244$@%#%P&%'\235\204\233#\"\230\204\215\325&!\204\233\312&!\203\233%'B'$A\211$\204j
A\211\204L\326\203\265'\202\363\327\330\211()>)\205\305\331K	!\332\333\334\335\336	P*\337#\"\307\340#'#'\327+\204\352,\205\360'?\205\360\335	*\337#'\"!.*\207" [glob-name filename eshell-explicit-command-char pcomplete-stub eshell-path-env paths pcomplete-arg nil file-name-directory pcomplete-entries file-executable-p 0 1 t eshell-parse-colon-path file-name-as-directory expand-file-name "" "." file-accessible-directory-p file-name-all-completions file-directory-p pcomplete-uniqify-list append eshell-alias eshell-alias-completions eshell-winnow-list mapcar #[(name) "\301\302O\207" [name 7 nil] 3] all-completions "eshell/" functionp (eshell-find-alias-function) default-directory cwd path comps-in-path file filepath completions module eshell-modules-list obarray eshell-show-lisp-completions eshell-show-lisp-alternatives] 11 (#$ . 9312)])
#@33 Eshell wrapper for `pcomplete'.
(defalias 'eshell-pcomplete #[(&optional interactively) "\301\302\303\304\217\207" [this-command pcomplete nil (byte-code "\203\301\302!\207\302 \207" [interactively call-interactively pcomplete] 2) ((text-read-only (completion-at-point)))] 3 (#$ . 10608) "p"])
(provide 'em-cmpl)
F1l3 Manager
