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

Chizi123
2018-11-21 7074318d7ab58aca124f590c42fd820e8eb258a5
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\304\305\306\307\310\301%\210\311\312\313\314\315\316%\210\311\317\306\320\315\321\322\323&\210\311\324\306\325\315\326\322\327&\207" [require company cl-lib etags custom-declare-group company-etags nil "Completion backend for etags." :group custom-declare-variable company-etags-use-main-table-list t "Always search `tags-table-list' if set.\nIf this is disabled, `company-etags' will try to find the one table for each\nbuffer automatically." :type (choice (const :tag "off" nil) (const :tag "on" t)) company-etags-ignore-case "Non-nil to ignore case in completion candidates." boolean :package-version (company . "0.7.3") company-etags-everywhere "Non-nil to offer completions in comments and strings.\nSet it to t or to a list of major modes." (choice (const :tag "Off" nil) (const :tag "Any supported mode" t) (repeat :tag "Some major modes" (symbol :tag "Major mode"))) (company . "0.9.0")] 8)
16 (defvar company-etags-modes '(prog-mode c-mode objc-mode c++-mode java-mode jde-mode pascal-mode perl-mode python-mode))
17 (defvar company-etags-buffer-table 'unknown nil)
18 (make-variable-buffer-local 'company-etags-buffer-table)
19 (defalias 'company-etags-find-table #[nil "\303\304\305\206    \304\"\"\211\205\306\n!\205\nC)\207" [buffer-file-name default-directory file expand-file-name "TAGS" locate-dominating-file file-regular-p] 6])
20 (defalias 'company-etags-buffer-table #[nil "\203    \206\n\303=\203\304 \211\207\n\207" [company-etags-use-main-table-list tags-table-list company-etags-buffer-table unknown company-etags-find-table] 2])
21 (defalias 'company-etags--candidates #[(prefix) "\305     \204 \205\306\307!\205\212\310 \210\311\f\307 \")+\207" [tags-file-name company-etags-ignore-case completion-ignore-case tags-table-list prefix company-etags-buffer-table fboundp tags-completion-table visit-tags-table-buffer all-completions] 3])
22 #@46 `company-mode' completion backend for etags.
23 (defalias 'company-etags #[(command &optional arg &rest ignored) "\306\267\202O\307\310!\207\311\312    \"\205P\n\313=\204$\311\312\n\"\204$\314 ?\205P\315 \205P\316 \206/\317\207\320 !\207\315 \321\322!\205J\212\322 !\211r q\210`+B)\207\207\323\207" [command company-etags-modes company-etags-everywhere arg tags-table-list buffer #s(hash-table size 5 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 48 location 52 ignore-case 76)) company-begin-backend company-etags apply derived-mode-p t company-in-string-or-comment company-etags-buffer-table company-grab-symbol stop company-etags--candidates fboundp find-tag-noselect nil company-etags-ignore-case] 4 (#$ . 2323) (list 'interactive)])
24 (provide 'company-etags)