
(defvar fi:shell-token-pattern "[ 	
()<>&|;=]" "*The regular expression used by file name completion to mark path name
boundaries.")

(defvar fi::shell-completions-window nil "\
If non-nil, completion window requires cleaning up.")

(defun fi:shell-do-completion nil "\
Do either command or file name completion in a subprocess buffer
containing a shell (or other subprocess for which it would be useful, such
as Common Lisp or rlogin buffers)." (interactive) (byte-code "Б€Б`ЉЗ!ѓ ‚ Иb€Й
Ж#… `)…> ЉКЛЖ#†1 МНЖ#)ѓ; ОП!‚> ОР!+‡" [completion-ignore-case nil opoint input-start fi::last-input-end subprocess-prompt-pattern t marker-buffer 0 re-search-forward re-search-backward "[ 	]" search-backward "/" call-interactively fi:shell-file-name-completion fi:shell-command-completion] 7))

(defun fi:shell-file-name-completion nil "\
Perform file name completion in subprocess modes." (interactive) (byte-code "В€ИЙ !ВВВК!† ‰€Л!‰€М	\"‰€Ж=ѓ0 НО!‚r В=ѓ< НП!‚r Р\"ѓi ѓL В‚Q С ‰€НТ!€УђФХЦ	\"Ч\"!‘€НШ!‚r Щ!€ЪЖЖ#,‡" [shell-expand-string shell-expand-dir nil shell-expand-file shell-expand-completion default-directory t fi::shell-completions-window substitute-in-file-name fi::shell-completion-default-prefix file-name-directory file-name-nondirectory file-name-completion message "Sole completion" "No match" equal current-window-configuration "Making completion list..." " *Completions*" display-completion-list sort file-name-all-completions string-lessp "" search-backward replace-match] 19))

(defun fi:shell-command-completion (shell-expand-string) "\
Perform file name completion in subprocess modes." (interactive (byte-code "А C‡" [fi::shell-completion-default-prefix] 2)) (byte-code "Б€ББ…1 М@!НО\"\"…' П\"‰*€A‰€‚ €…P @@B
B‰€A‰€‚5 )€?ѓ] РС!‚ј ТGUѓ„ У@\"ѓv Ф €РХ!‚Ѓ Ц!€Ч@ЙЙ#‚ј Ш
\"

…— У
\"?…Ґ Ц!€Ч
ЙЙ#€?…± Щ ‰€ЪђЫЬЭ\"!‘)+‡" [completions nil complete-alist dirs exec-path dir res shell-expand-string names t new-command fi::shell-completions-window expand-file-name fi::executable-files file-name-all-completions append message "No match" 1 string= fi::shell-completion-cleanup "Sole completion" search-backward replace-match try-completion current-window-configuration " *Completions*" display-completion-list sort string-lessp] 20))

(defun fi::executable-files (files dir) (byte-code "…9 ДД…6 Е@Q‰€Ж
!?…$ ЗИЙК
!\"!?…- @	B‰€A‰€‚ €	*‡" [files res file dir nil "/" file-directory-p zerop logand 73 file-modes] 7))

(defun fi::shell-completion-default-prefix nil (byte-code "ГБВ#€Д €Е`ЖБЗ#… И €`\"‡" [fi:shell-token-pattern nil t re-search-backward forward-char buffer-substring re-search-forward 0 backward-char] 8))

(defun fi::shell-completion-cleanup nil "\
Clean up windows after shell file name completion." (interactive) (byte-code "Б€… ЉВ!€Б‰)‡" [fi::shell-completions-window nil set-window-configuration] 3))