[config.git] / djavu-asus / elpa / company-20230926.32 / company-files.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; 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&\a\210\310\317\320\321\313\322%\207" [require company cl-lib custom-declare-group company-files nil "Completion backend for file names." :group custom-declare-variable company-files-exclusions "A list of file name extensions and directory names to ignore.\nThe values should use the same format as `completion-ignored-extensions'." :type (repeat (string :tag "File extension or directory name")) :package-version (company . "0.9.1") company-files-chop-trailing-slash t "Non-nil to remove the trailing slash after inserting directory name.\n\nThis way it's easy to continue completion by typing `/' again.\n\nSet this to nil to disable that behavior." boolean] 8)
(defalias 'company-files--directory-files #[(dir prefix) "\3041(\0\305\306\b	\"\307\"\1a\v\203\14\0\310\n!\12\b\311\232\203$\0\312\313\312\314\n\"\"\202%\0\n)0\207\210\315\207" [prefix dir comp company-files-exclusions (file-error) sort file-name-all-completions #[(s1 s2) "\b\227	\227\231\207" [s1 s2] 2] company-files--exclusions-filtered "" delete "../" "./" nil] 5])
(defalias 'company-files--exclusions-filtered #[(completions) "\306\307\b\"\19\310\b	\"\1a\v\1c\311\211\1d\1e\f\f:\2039\0\f@\15\307\r!\203%\0\r	\235\202)\0\312\313\n\"\2042\0\r\ e\fB\16\f\fA\211\14\202\12\0\ e\f\237-\207" [company-files-exclusions dir-exclusions file-exclusions completions #1=#:--cl-var-- c cl-remove-if-not company-files--trailing-slash-p cl-set-difference nil cl-find-if #[(exclusion) "\302\b	\"\207" [exclusion c string-suffix-p] 3] #2=#:--cl-var--] 4])
(defvar company-files--regexps (byte-code "\b\303=\203\n\0\304\202\v\0\305\19\306	\307Q\1a\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\18\19\3062+\0\n\305\e\211\1c\205)\0\f@\13\307\v\310\"\211\11\203!\0\311\306	\"\210\fA\211\14\204\10\0\305*0\205K\0\312	!\205K\0\313	!\211\10\205K\0\314\315\b\"?\205K\0\316\b!\205K\0	*\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\b!?\206\f\0\301\b\302\303#\207" [file file-remote-p nil t] 4])
(defalias 'company-files--trailing-slash-p #[(file) "\bG\211\19\302V\205\ f\0\b	SH\303=)\207" [file len 0 47] 3])
(defvar company-files--completion-cache nil)
(defalias 'company-files--complete #[(prefix) "\306\b!\19\307\b!\211\1a\310	!\311\312	!8E\e\f\1d\313\v\ e\16@\"\204K\0\314\315\316	\n\"\"\1e\17\317	!?\2053\0\320\321\ e\17\"\211\1e\18\205>\0\322\323\ e\18\"\1e\19\v\324\ e\17\ e\19\"B\16\16+\325\b\ e\16A\",\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) "\b	P\207" [dir f] 2] company-files--directory-files file-remote-p cl-remove-if-not #[(f) "\301\b!\205\10\0\302\b!?\205\10\0\303\b!\207" [f company-files--trailing-slash-p file-remote-p company-files--connected-p] 2] cl-mapcan #[(d) "\301\302\303\b\304\"\"\207" [d mapcar #[(c) "\b	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) "\bA	A\232\205\ e\0\302\b@	@\"\207" [old new string-prefix-p] 3])
(defalias 'company-files--post-completion #[(arg) "\b\205\r\0\302	!\205\r\0\303\304!\207" [company-files-chop-trailing-slash 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.\1f
(defalias 'company-files #[(command &optional arg &rest ignored) "\b\302\267\202.\0\303\304!\207\305 \207\306	!\207\307\310\311	!!!\312B\207\313	!\207\314\315	\"\203(\0\316\207\317\207\320\207\320\207\321\207" [command arg #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 13 location 17 post-completion 27 kind 31 sorted 42 no-cache 44)) 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 string-suffix-p "/" folder file t nil] 4 (#$ . 3723) (list 'interactive)])
(provide 'company-files)
Commit	Line	Data
53e6db90 DC	1	;ELC\1c\0\0\0
	2	;;; Compiled
	3	;;; in Emacs version 28.2
	4	;;; with all optimizations.
	5
	6
	7
	8	(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\301%\210\310\311\305\312\313\314\315\316&\a\210\310\317\320\321\313\322%\207" [require company cl-lib custom-declare-group company-files nil "Completion backend for file names." :group custom-declare-variable company-files-exclusions "A list of file name extensions and directory names to ignore.\nThe values should use the same format as `completion-ignored-extensions'." :type (repeat (string :tag "File extension or directory name")) :package-version (company . "0.9.1") company-files-chop-trailing-slash t "Non-nil to remove the trailing slash after inserting directory name.\n\nThis way it's easy to continue completion by typing `/' again.\n\nSet this to nil to disable that behavior." boolean] 8)
	9	(defalias 'company-files--directory-files #[(dir prefix) "\3041(\0\305\306\b \"\307\"\1a\v\203\14\0\310\n!\12\b\311\232\203$\0\312\313\312\314\n\"\"\202%\0\n)0\207\210\315\207" [prefix dir comp company-files-exclusions (file-error) sort file-name-all-completions #[(s1 s2) "\b\227 \227\231\207" [s1 s2] 2] company-files--exclusions-filtered "" delete "../" "./" nil] 5])
	10	(defalias 'company-files--exclusions-filtered #[(completions) "\306\307\b\"\19\310\b \"\1a\v\1c\311\211\1d\1e\f\f:\2039\0\f@\15\307\r!\203%\0\r \235\202)\0\312\313\n\"\2042\0\r\ e\fB\16\f\fA\211\14\202\12\0\ e\f\237-\207" [company-files-exclusions dir-exclusions file-exclusions completions #1=#:--cl-var-- c cl-remove-if-not company-files--trailing-slash-p cl-set-difference nil cl-find-if #[(exclusion) "\302\b \"\207" [exclusion c string-suffix-p] 3] #2=#:--cl-var--] 4])
	11	(defvar company-files--regexps (byte-code "\b\303=\203\n\0\304\202\v\0\305\19\306 \307Q\1a\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))
	12	(defalias 'company-files--grab-existing-name #[nil "\305\211\18\19\3062+\0\n\305\e\211\1c\205)\0\f@\13\307\v\310\"\211\11\203!\0\311\306 \"\210\fA\211\14\204\10\0\3050\205K\0\312 !\205K\0\313 !\211\10\205K\0\314\315\b\"?\205K\0\316\b!\205K\0 \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])
	13	(defalias 'company-files--connected-p #[(file) "\301\b!?\206\f\0\301\b\302\303#\207" [file file-remote-p nil t] 4])
	14	(defalias 'company-files--trailing-slash-p #[(file) "\bG\211\19\302V\205\ f\0\b SH\303=)\207" [file len 0 47] 3])
	15	(defvar company-files--completion-cache nil)
	16	(defalias 'company-files--complete #[(prefix) "\306\b!\19\307\b!\211\1a\310 !\311\312 !8E\e\f\1d\313\v\ e\16@\"\204K\0\314\315\316 \n\"\"\1e\17\317 !?\2053\0\320\321\ e\17\"\211\1e\18\205>\0\322\323\ e\18\"\1e\19\v\324\ e\17\ e\19\"B\16\16+\325\b\ e\16A\",\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) "\b P\207" [dir f] 2] company-files--directory-files file-remote-p cl-remove-if-not #[(f) "\301\b!\205\10\0\302\b!?\205\10\0\303\b!\207" [f company-files--trailing-slash-p file-remote-p company-files--connected-p] 2] cl-mapcan #[(d) "\301\302\303\b\304\"\"\207" [d mapcar #[(c) "\b P\207" [d c] 2] company-files--directory-files ""] 5] append all-completions company-files--completion-cache candidates directories children] 6])
	17	(defalias 'company-file--keys-match-p #[(new old) "\bA A\232\205\ e\0\302\b@ @\"\207" [old new string-prefix-p] 3])
	18	(defalias 'company-files--post-completion #[(arg) "\b\205\r\0\302 !\205\r\0\303\304!\207" [company-files-chop-trailing-slash arg company-files--trailing-slash-p delete-char -1] 2])
	19	#@178 `company-mode' completion backend existing file names.
	20	Completions works for proper absolute and relative files paths.
	21	File paths with spaces are only supported inside strings.\1f
	22	(defalias 'company-files #[(command &optional arg &rest ignored) "\b\302\267\202.\0\303\304!\207\305 \207\306 !\207\307\310\311 !!!\312B\207\313 !\207\314\315 \"\203(\0\316\207\317\207\320\207\320\207\321\207" [command arg #s(hash-table size 8 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 13 location 17 post-completion 27 kind 31 sorted 42 no-cache 44)) 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 string-suffix-p "/" folder file t nil] 4 (#$ . 3723) (list 'interactive)])
	23	(provide 'company-files)