| 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 !\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)]) | |
| 24 | (provide 'company-etags) | |
