| 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\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) | |
| 16 | #@48 Prefix matching C/C++/ObjC include directives. | |
| 17 | (defvar company-c-headers-include-declaration "^#[[:blank:]]*\\(?:\\(?:i\\(?:mport\\|nclude\\)\\)\\)[[:blank:]]+\\([\"<][^\">]*\\)" (#$ . 1363)) | |
| 18 | #@71 Assoc list of supported major modes and associated header file names. | |
| 19 | (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)) | |
| 20 | #@110 If PATH is bound to a function, return the result of calling it. | |
| 21 | Otherwise just return the value. | |
| 22 | ||
| 23 | (fn PATH) | |
| 24 | (defalias 'call-if-function #[257 "\300!\203 \211 \207\207" [functionp] 3 (#$ . 1829)]) | |
| 25 | #@136 Return a list of candidates for PREFIX in directory DIR. | |
| 26 | Filters on the appropriate regex for the current major mode. | |
| 27 | ||
| 28 | (fn PREFIX DIR) | |
| 29 | (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)]) | |
| 30 | #@44 Return candidates for PREFIX. | |
| 31 | ||
| 32 | (fn PREFIX) | |
| 33 | (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)]) | |
| 34 | #@95 Return the metadata associated with CANDIDATE. Currently just the directory. | |
| 35 | ||
| 36 | (fn CANDIDATE) | |
| 37 | (defalias 'company-c-headers--meta #[257 "\300\301\302#\207" [get-text-property 0 directory] 5 (#$ . 3501)]) | |
| 38 | #@64 Return the location associated with CANDIDATE. | |
| 39 | ||
| 40 | (fn CANDIDATE) | |
| 41 | (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)]) | |
| 42 | #@83 Company backend for C/C++ header files. | |
| 43 | ||
| 44 | (fn COMMAND &optional ARG &rest IGNORED) | |
| 45 | (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)]) | |
| 46 | (provide 'company-c-headers) | |
