| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (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) | |
| 16 | (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]) | |
| 17 | (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]) | |
| 18 | (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)) | |
| 19 | (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]) | |
| 20 | (defalias 'company-files--connected-p #[(file) "\301!?\206\f \301\302\303#\207" [file file-remote-p nil t] 4]) | |
| 21 | (defalias 'company-files--trailing-slash-p #[(file) "G\211\302V\205 SH\303=)\207" [file len 0 47] 3]) | |
| 22 | (defvar company-files--completion-cache nil) | |
| 23 | (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]) | |
| 24 | (defalias 'company-file--keys-match-p #[(new old) "A A\232\205 \302@ @\"\207" [old new string-prefix-p] 3]) | |
| 25 | #@178 `company-mode' completion backend existing file names. | |
| 26 | Completions works for proper absolute and relative files paths. | |
| 27 | File paths with spaces are only supported inside strings. | |
| 28 | (defalias 'company-files #[(command &optional arg &rest ignored) "\302\267\202) \303\304!\207\305 \207\306 !\207\307\310\311 !!!\312B\207\313 !\205* \314\315!\207\316\207\316\207\317\207" [command arg #s(hash-table size 7 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 13 location 17 post-completion 27 sorted 37 no-cache 39)) company-begin-backend company-files company-files--grab-existing-name company-files--complete dired-noselect file-name-directory directory-file-name 1 company-files--trailing-slash-p delete-char -1 t nil] 4 (#$ . 3562) (list 'interactive)]) | |
| 29 | (provide 'company-files) | |
