;ELC
|
;;; Compiled
|
;;; in Emacs version 26.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\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\301%\210\312\313\314\315\316DD\317\320\321%\210\312\322\314\315\323DD\324\320\325%\207" [require company rx cl cl-lib custom-declare-group company-c-headers nil "Completion back-end for C/C++ header files." :group custom-declare-variable company-c-headers-path-system funcall function #[0 "\300\207" [("/usr/include/" "/usr/local/include/")] 1] "List of paths to search for system (i.e. angle-bracket\ndelimited) header files. Alternatively, a function can be\nsupplied which returns the path list." :type (choice (repeat directory) function) company-c-headers-path-user #[0 "\300\207" [(".")] 1] "List of paths to search for user (i.e. double-quote delimited)\nheader files. Alternatively, a function can be supplied which\nreturns the path list. Note that paths in\n`company-c-headers-path-system' are implicitly appended." (choice (repeat directory) function)] 6)
|
#@48 Prefix matching C/C++/ObjC include directives.
|
(defvar company-c-headers-include-declaration "^#[[:blank:]]*\\(?:\\(?:i\\(?:mport\\|nclude\\)\\)\\)[[:blank:]]+\\([\"<][^\">]*\\)" (#$ . 1363))
|
#@71 Assoc list of supported major modes and associated header file names.
|
(defvar company-c-headers-modes (byte-code "\300\301B\302\303B\304\301BE\207" [c-mode "\\.h$" c++-mode "\\(?:^[0-9A-Z_a-z]+\\|\\(?:\\.h\\(?:h\\|pp\\|xx\\)?\\)\\)$" objc-mode] 4) (#$ . 1561))
|
#@110 If PATH is bound to a function, return the result of calling it.
|
Otherwise just return the value.
|
|
(fn PATH)
|
(defalias 'call-if-function #[257 "\300!\203 \211 \207\207" [functionp] 3 (#$ . 1829)])
|
#@136 Return a list of candidates for PREFIX in directory DIR.
|
Filters on the appropriate regex for the current major mode.
|
|
(fn PREFIX DIR)
|
(defalias 'company-c-headers--candidates-for #[514 "\211C\302\303OC\303\304O\305!\211\205 \306\242!P\307 \"A\304\2039 \310!\2039 \240\210\311!\262\211\242P\240\210\312\313\314\315\316\317\f\"\320\"\321\322%\323\n\242\"\"\262\324\325\"\262\326\313\314\327\316\317\f\f\"\330\"\331\332%\"\266\206\207" [major-mode company-c-headers-modes 0 1 nil file-name-directory file-name-as-directory assoc file-directory-p file-name-nondirectory cl-remove-if make-byte-code 257 "\301\303\304\305#)\266\203?\205\" \306!\307\235\206\" \310\311\300\242!P!?\207" vconcat vector [inhibit-changing-match-data nil t string-match directory-file-name ("." "..") file-directory-p file-name-as-directory] 8 "\n\n(fn F)" file-name-all-completions sort string< mapcar "\302\301\242P\303\300\242#\207" [propertize directory] 5 "\n\n(fn C)"] 17 (#$ . 2035)])
|
#@44 Return candidates for PREFIX.
|
|
(fn PREFIX)
|
(defalias 'company-c-headers--candidates #[257 "\211\302H\303\232\203 \304!\202 \304 !\302H\303\232\205 \304 !\305\203E \306@!\2034 \307\310@\"\"\262A\206@ \305\262\211\262\262\202 \311\312\313#\207" [company-c-headers-path-user company-c-headers-path-system 0 34 call-if-function nil file-directory-p append company-c-headers--candidates-for remove-duplicates :test equal] 9 (#$ . 3042)])
|
#@95 Return the metadata associated with CANDIDATE. Currently just the directory.
|
|
(fn CANDIDATE)
|
(defalias 'company-c-headers--meta #[257 "\300\301\302#\207" [get-text-property 0 directory] 5 (#$ . 3501)])
|
#@64 Return the location associated with CANDIDATE.
|
|
(fn CANDIDATE)
|
(defalias 'company-c-headers--location #[257 "\300\301\302\303#!\304\305\306O!P\305B\207" [file-name-as-directory get-text-property 0 directory file-name-nondirectory 1 nil] 6 (#$ . 3711)])
|
#@83 Company backend for C/C++ header files.
|
|
(fn COMMAND &optional ARG &rest IGNORED)
|
(defalias 'company-c-headers #[641 "\304\267\202q \305\306!\207\307 \"\205 \310\n\311 \"\205r \312\313!\207\314\207\315!\207\316!\207\317!\207\310\n\311 \"\205r \312\313!\211\320!\230\203D \321\211\202p \211\322H\211\323\267\202m \324\325!\203X \326\202n \325c\202n \324\327!\203h \326\202n \327c\202n \326\262\207\326\207" [major-mode company-c-headers-modes company-c-headers-include-declaration this-command #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 sorted 29 candidates 31 meta 35 location 39 post-completion 43)) company-begin-backend company-c-headers assoc looking-back line-beginning-position match-string-no-properties 1 t company-c-headers--candidates company-c-headers--meta company-c-headers--location file-name-as-directory self-insert-command 0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (34 77 60 93)) looking-at "\"" nil ">"] 7 (#$ . 3972) (byte-code "\300C\207" [interactive] 1)])
|
(provide 'company-c-headers)
|
