;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\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)
|
(defvar company-etags-modes '(prog-mode c-mode objc-mode c++-mode java-mode jde-mode pascal-mode perl-mode python-mode))
|
(defvar company-etags-buffer-table 'unknown nil)
|
(make-variable-buffer-local 'company-etags-buffer-table)
|
(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])
|
(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])
|
(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])
|
#@46 `company-mode' completion backend for etags.
|
(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 !\211 r 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)])
|
(provide 'company-etags)
|
