| 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 "\302\303!\210\302\304!\210\302\305!\210\306\307\310\311\312\303%\210\313\314\315\310#\210\316\310\211\203@ @\314N\2039 \315N\2049 \317\315\314N#\210 A\211\204\" *\320\314\315\321#\210\322\315\323\324\325\326%\210\322\327\330\331\325\332\333\334&\207" [prop --dolist-tail-- require company company-template cl-lib custom-declare-group company-gtags nil "Completion backend for GNU Global." :group defvaralias company-gtags-gnu-global-program-name company-gtags-executable (saved-value saved-variable-comment) put make-obsolete-variable "earlier" custom-declare-variable (executable-find "global") "Location of GNU global executable." :type string company-gtags-insert-arguments t "When non-nil, insert function arguments as a template after completion." boolean :package-version (company . "0.8.1")] 9) | |
| 16 | (defvar company-gtags--tags-available-p 'unknown nil) | |
| 17 | (byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [make-variable-buffer-local company-gtags--tags-available-p custom-declare-variable company-gtags-modes '(prog-mode jde-mode) "Modes that use `company-gtags'.\nIn all these modes (and their derivatives) `company-gtags' will perform\ncompletion." :type (repeat (symbol :tag "Major mode")) :package-version (company . "0.8.4")] 8) | |
| 18 | (defalias 'company-gtags--tags-available-p #[nil "\302=\203 \303 \304\"\211\207\207" [company-gtags--tags-available-p buffer-file-name unknown locate-dominating-file "GTAGS"] 3]) | |
| 19 | (defalias 'company-gtags--fetch-tags #[(prefix) "\305\306!rq\210\307\216\310\311\n\310p\310D\310\312\313 P&\314U\205I eb\210\310 \315\316\310\317#\203F \320\321\322!\323\321\324!\325\326\321\327!!\330\321\331!!B%\fB\202# \f\237),\207" [#1=#:temp-buffer tags company-gtags-executable prefix #2=#:--cl-var-- generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] nil process-file "-xGqT" "^" 0 re-search-forward "^\\([^ ]*\\)[ ]+\\([[:digit:]]+\\)[ ]+\\([^ ]+\\)[ ]+\\(.*\\)$" t propertize match-string 1 meta 4 location expand-file-name 3 string-to-number 2] 9]) | |
| 20 | (defalias 'company-gtags--annotation #[(arg) "\302\303\301#\304\305P \"\205 \306\307 \")\207" [arg meta get-text-property 0 string-match "\\((.*)\\).*" match-string 1] 4]) | |
| 21 | #@51 `company-mode' completion backend for GNU Global. | |
| 22 | (defalias 'company-gtags #[(command &optional arg &rest ignored) "\306\267\202X \307\310!\207 \205Y \n\205Y \311\312 \"\205Y \313 ?\205Y \314 \205Y \315 \206* \316\207\317\f!\207\320\207\320\207\321\f!\207\322\323\324\f#\207\322\323\325\f#\207\321\f! \205V \205V c\210\326 !)\207\327\207" [command company-gtags-executable buffer-file-name company-gtags-modes arg anno #s(hash-table size 9 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 43 sorted 47 duplicates 49 annotation 51 meta 55 location 61 post-completion 67)) company-begin-backend company-gtags apply derived-mode-p company-in-string-or-comment company-gtags--tags-available-p company-grab-symbol stop company-gtags--fetch-tags t company-gtags--annotation get-text-property 0 meta location company-template-c-like-templatify nil company-gtags-insert-arguments] 4 (#$ . 2649) (list 'interactive)]) | |
| 23 | (provide 'company-gtags) | |
