;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:12 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/eshell/em-cmpl.el ;;; in Emacs version 23.4.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&\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] 8) #@59 *A list of functions to run when `eshell-cmpl' is loaded. (custom-declare-variable 'eshell-cmpl-load-hook ''(eshell-cmpl-initialize) '(#$ . -885) :type 'hook :group 'eshell-cmpl) #@179 *If non-nil, include Lisp functions in the command completion list. If this variable is nil, Lisp completion can still be done in command position by using M-TAB instead of TAB. (custom-declare-variable 'eshell-show-lisp-completions 'nil '(#$ . -1071) :type 'boolean :group 'eshell-cmpl) #@149 *If non-nil, and no other completions found, show Lisp functions. Setting this variable means nothing if `eshell-show-lisp-completions' is non-nil. (custom-declare-variable 'eshell-show-lisp-alternatives 't '(#$ . -1366) :type 'boolean :group 'eshell-cmpl) #@65 *If non-nil, don't allow completion while a process is running. (custom-declare-variable 'eshell-no-completion-during-jobs 't '(#$ . -1629) :type 'boolean :group 'eshell-cmpl) #@159 *An alist that defines simple argument type correlations. This is provided for common commands, as a simplistic alternative to writing a completion function. (custom-declare-variable '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\\)\\'")) '(#$ . -1812) :type '(repeat (cons string regexp)) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-file-ignore '"~\\'" (documentation-property 'pcomplete-file-ignore 'variable-documentation) :type (get 'pcomplete-file-ignore 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-dir-ignore '"\\`\\(\\.\\.?\\|CVS\\)/\\'" (documentation-property 'pcomplete-dir-ignore 'variable-documentation) :type (get 'pcomplete-dir-ignore 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-ignore-case '(eshell-under-windows-p) (documentation-property 'pcomplete-ignore-case 'variable-documentation) :type (get 'pcomplete-ignore-case 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-autolist 'nil (documentation-property 'pcomplete-autolist 'variable-documentation) :type (get 'pcomplete-autolist 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-suffix-list '(list 47 58) (documentation-property 'pcomplete-suffix-list 'variable-documentation) :type (get 'pcomplete-suffix-list 'custom-type) :group 'pcomplete) (custom-declare-variable 'eshell-cmpl-recexact 'nil (documentation-property 'pcomplete-recexact 'variable-documentation) :type (get 'pcomplete-recexact 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-man-function ''man (documentation-property 'pcomplete-man-function 'variable-documentation) :type (get 'pcomplete-man-function 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-compare-entry-function ''file-newer-than-file-p (documentation-property 'pcomplete-compare-entry-function 'variable-documentation) :type (get 'pcomplete-compare-entry-function 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-expand-before-complete 'nil (documentation-property 'pcomplete-expand-before-complete 'variable-documentation) :type (get 'pcomplete-expand-before-complete 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-cycle-completions 't (documentation-property 'pcomplete-cycle-completions 'variable-documentation) :type (get 'pcomplete-cycle-completions 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-cycle-cutoff-length '5 (documentation-property 'pcomplete-cycle-cutoff-length 'variable-documentation) :type (get 'pcomplete-cycle-cutoff-length 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-restore-window-delay '1 (documentation-property 'pcomplete-restore-window-delay 'variable-documentation) :type (get 'pcomplete-restore-window-delay 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-command-completion-function '#'(lambda nil (pcomplete-here (eshell-complete-commands-list))) (documentation-property 'pcomplete-command-completion-function 'variable-documentation) :type (get 'pcomplete-command-completion-function 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-command-name-function ''eshell-completion-command-name (documentation-property 'pcomplete-command-name-function 'variable-documentation) :type (get 'pcomplete-command-name-function 'custom-type) :group 'eshell-cmpl) (custom-declare-variable '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)))))) (documentation-property 'pcomplete-default-completion-function 'variable-documentation) :type (get 'pcomplete-default-completion-function 'custom-type) :group 'eshell-cmpl) (custom-declare-variable 'eshell-cmpl-use-paring 't (documentation-property 'pcomplete-use-paring 'variable-documentation) :type (get 'pcomplete-use-paring 'custom-type) :group 'eshell-cmpl) #@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!\2104\313\317!\2105\313\320!\2106\313\321!\2107\313\322!\2108\313\323!\2109\313\324!\210:\313\325!\210;\313\326!\210<\313\327!\210=\313\330!\210>\313\331!\210?\313\332!\210@\333\334\335\336\312$\210\333\337\340\336\312$\210\341A\342\343#\210\341A\344\343#\210\341B\345\346#\210\341B\347\350#\210\341B\351\350#\210\341B\352\353#\210\341B\354\353#\210\341A\355\307#\210\341A\356\307#\210\341A\357\360#\210\341A\361\360#\210\341A\362\363#\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] [(control 105)] [(shift iso-lefttab)] pcomplete-reverse [(shift control 105)] [(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 (#$ . 6449)]) #@50 Return the command name, possibly sans globbing. (defalias 'eshell-completion-command-name #[nil "\303\304\305!!\211G\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 (#$ . 8692)]) (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\305D\306\"\211@\307=\204\310\311\312C\"\210 \211A@*\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 (#$ . 9221)]) #@48 Generate list of applicable, visible commands. (defalias 'eshell-complete-commands-list #[nil "\306 \307\310 !\203\307\311\n\312\")\202\373 G\313V\203- \313H =\203- \314\307O\211\315\316 !!\317\320\"!!#\321$\307%\321\211&'\307(!\203\260\317\320!@\206W\322!!$\323$!\205g\324 $\"\211%\203\247%@&$&P'&(\235\204\236$#\230\204\220\325'!\204\236\312'!\203\236&(B(%A\211%\204m!A\211!\204N\326\203\272(\202\370\327\330\211)*>)\205\312\331K !\332\333\334\335\336 P+\337#\"\307\340#(#(\327,\204\357-\205\365(?\205\365\335 +\337#(\"!.*\207" [glob-name filename regexp eshell-explicit-command-char pcomplete-stub eshell-path-env 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) paths default-directory cwd path comps-in-path file filepath completions module eshell-modules-list obarray eshell-show-lisp-completions eshell-show-lisp-alternatives] 11 (#$ . 10898)]) (provide 'em-cmpl)