;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\305\312\313\314\315\316&\207" [require company cl-lib custom-declare-group company-files nil "Completion backend for file names." :group custom-declare-variable company-files-exclusions "File name extensions and directory names to ignore.\nThe values should use the same format as `completion-ignored-extensions'." :type (const string) :package-version (company . "0.9.1")] 8) (defalias 'company-files--directory-files #[(dir prefix) "\3041(\305\306 \"\307\" \203\310\n!\311\232\203$\312\313\312\314\n\"\"\202%\n)0\207\210\315\207" [prefix dir comp company-files-exclusions (file-error) sort file-name-all-completions #[(s1 s2) "\227 \227\231\207" [s1 s2] 2] company-files--exclusions-filtered "" delete "../" "./" nil] 5]) (defalias 'company-files--exclusions-filtered #[(completions) "\306\307\"\310 \" \311\211\f\f:\2039\f@\307 !\203% \235\202)\312\313\n\"\2042 \fB\f\fA\211\202\f\237-\207" [company-files-exclusions dir-exclusions file-exclusions completions #1=#:--cl-var-- c cl-delete-if-not company-files--trailing-slash-p cl-set-difference nil cl-find-if #[(exclusion) "\302 \"\207" [exclusion c string-suffix-p] 3] #2=#:--cl-var--] 4]) (defvar company-files--regexps (byte-code "\303=\203\n\304\202 \305\306 \307Q\310\n\311Q\312\n\313Q\314\n\315QE*\207" [system-type root begin windows-nt "[a-zA-Z]:/" "/" "\\(?:\\.\\{1,2\\}/\\|~/\\|" "\\)" "\"\\(" "[^\"\n]*\\)" "'\\(" "[^'\n]*\\)" "\\(?:[ =[]\\|^\\)\\(" "[^ \n]*\\)"] 5)) (defalias 'company-files--grab-existing-name #[nil "\305\211\3062+\n\305\211\205)\f@\307 \310\"\211\203!\311\306 \"\210\fA\211\204\305*0\205K\312 !\205K\313 !\211\205K\314\315\"?\205K\316!\205K *\207" [dir file company-files--regexps regexp --dolist-tail-- nil --cl-block-nil-- company-grab-line 1 throw company-files--connected-p file-name-directory string-match "//" file-exists-p] 4]) (defalias 'company-files--connected-p #[(file) "\301!?\206\f\301\302\303#\207" [file file-remote-p nil t] 4]) (defalias 'company-files--trailing-slash-p #[(file) "G\211\302V\205 SH\303=)\207" [file len 0 47] 3]) (defvar company-files--completion-cache nil) (defalias 'company-files--complete #[(prefix) "\306!\307!\211\310 !\311\312 !8E\f\313 @\"\204K\314\315\316 \n\"\"\317 !?\2053\320\321\"\211\205>\322\323\" \324\"B+\325A\",\207" [prefix dir file key read-file-name-completion-ignore-case completion-ignore-case file-name-directory file-name-nondirectory expand-file-name 5 file-attributes company-file--keys-match-p mapcar #[(f) " P\207" [dir f] 2] company-files--directory-files file-remote-p cl-remove-if-not #[(f) "\301!\205\302!?\205\303!\207" [f company-files--trailing-slash-p file-remote-p company-files--connected-p] 2] cl-mapcan #[(d) "\301\302\303\304\"\"\207" [d mapcar #[(c) " P\207" [d c] 2] company-files--directory-files ""] 5] append all-completions company-files--completion-cache candidates directories children] 6]) (defalias 'company-file--keys-match-p #[(new old) "A A\232\205\302@ @\"\207" [old new string-prefix-p] 3]) (defalias 'company-files--post-completion #[(arg) "\301!\205 \302\303!\207" [arg company-files--trailing-slash-p delete-char -1] 2]) #@178 `company-mode' completion backend existing file names. Completions works for proper absolute and relative files paths. File paths with spaces are only supported inside strings. (defalias 'company-files #[(command &optional arg &rest ignored) "\302\267\202#\303\304!\207\305 \207\306 !\207\307\310\311 !!!\312B\207\313 !\207\314\207\314\207\315\207" [command arg #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 13 location 17 post-completion 27 sorted 31 no-cache 33)) company-begin-backend company-files company-files--grab-existing-name company-files--complete dired-noselect file-name-directory directory-file-name 1 company-files--post-completion t nil] 4 (#$ . 3377) (list 'interactive)]) (provide 'company-files)