mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-18 c655eea759be1db69c5e6b45c228139d8390122a
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
;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)