| | 1 | ;ELC\1c\0\0\0 |
| | 2 | ;;; Compiled |
| | 3 | ;;; in Emacs version 28.2 |
| | 4 | ;;; with all optimizations. |
| | 5 | |
| | 6 | |
| | 7 | |
| | 8 | (byte-code "\300\301!\210\300\302!\207" [require company cl-lib] 2) |
| | 9 | (defvar company-tng--overlay nil nil) |
| | 10 | (make-variable-buffer-local 'company-tng--overlay) |
| | 11 | #@230 When the user changes the selection at least once, this |
| | 12 | frontend will display the candidate in the buffer as if it's |
| | 13 | already there and any key outside of `company-active-map' will |
| | 14 | confirm the selection and finish the completion.\1f |
| | 15 | (defalias 'company-tng-frontend #[(command) "\b\306\267\202^\0\307``\"\211\19\12\310 \311\312#)\207\n\19\v\205\1d\0\v\f8\1d\ e\16G\1e\17\313 `\ e\17Z`#\210\310 \ e\17\314U\2039\0\315\202:\0\316\r#+\207\n\205_\0\317\n!\210\320\302!\207\v\205]\0\321\322 !?\205_\0\323 \210\324\211\16\18\207\325\207" [command ov company-tng--overlay company-selection company-candidates selected #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (show 6 update 20 hide 62 pre-command 74)) make-overlay overlay-put priority 2 move-overlay 0 after-string display delete-overlay kill-local-variable company--company-command-p this-command-keys company--unread-this-command-keys company-complete-selection nil company-prefix prefix this-command] 5 (#$ . 242)]) |
| | 16 | (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312\313%\210\314\315\316\317#\210\320\315\316\321#\207" [custom-declare-group company-tng nil "Company Tab and Go." :group company custom-declare-variable company-tng-auto-configure t "Automatically apply default configure when enable `company-tng-mode'." :type boolean defalias company-tng-configure-default company-tng-mode "Applies the default configuration to enable company-tng." make-obsolete "0.9.14"] 6) |
| | 17 | (defvar company-tng-map (byte-code "\302 \18\303\b \"\210\304\b\305\306#\210\304\b\307\306#\210\304\b\310\311#\210\304\b\312\311#\210\304\b\313\314#\210\304\b\315\314#\210\b)\207" [keymap company-active-map make-sparse-keymap set-keymap-parent define-key [return] nil "\r" [tab] company-select-next " " [backtab] company-select-previous [33554441]] 4)) |
| | 18 | #@269 Non-nil if Company-Tng mode is enabled. |
| | 19 | See the `company-tng-mode' command |
| | 20 | for a description of this minor mode. |
| | 21 | Setting this variable directly does not take effect; |
| | 22 | either customize it (see the info node `Easy Customization') |
| | 23 | or call the function `company-tng-mode'.\1f |
| | 24 | (custom-declare-variable 'company-tng-mode nil '(#$ . 2021) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :type 'boolean) |
| | 25 | #@604 This minor mode enables `company-tng-frontend'. |
| | 26 | |
| | 27 | This is a minor mode. If called interactively, toggle the |
| | 28 | `Company-Tng mode' mode. If the prefix argument is positive, |
| | 29 | enable the mode, and if it is zero or negative, disable the mode. |
| | 30 | |
| | 31 | If called from Lisp, toggle the mode if ARG is `toggle'. Enable |
| | 32 | the mode if ARG is nil, omitted, or is a positive number. |
| | 33 | Disable the mode if ARG is a negative number. |
| | 34 | |
| | 35 | To check whether the minor mode is enabled in the current buffer, |
| | 36 | evaluate `(default-value \='company-tng-mode)'. |
| | 37 | |
| | 38 | The mode's hook is called both when the mode is enabled and when |
| | 39 | it is disabled.\1f |
| | 40 | (defalias 'company-tng-mode #[(&optional arg) "\306 \18\307\303 \310=\203\12\0\311\303!?\202\"\0 \247\203!\0 \312W\203!\0\313\202\"\0\314\"\210\315\302!\2039\0\316\303\n\"\12\311\303!\2039\0\303\nB\12\v\203g\0\317\304\320\"\14\r\203a\0\321\14\313\211\16(\16)\313\211\16*\16+\313\16,\322\323\324\325#\210\ e-\16.\313\16/\202\212\0\326\14\r\203\207\0\327\16(\314\211\16)\16*\314\211\16+\16,\330\323\325\"\210\331\ e-!\16.\332\16/\333\334\311\303!\203\226\0\335\202\227\0\336\"\210\337\340!\203\304\0\341\303!\210\306 \203\257\0\b\306 \232\203\304\0\342\1e0\343\344\311\303!\203\276\0\345\202\277\0\346\ e0#\210))\347 \210\311\303!\207" [#1=#:last-message arg global-minor-modes company-tng-mode company-frontends company-tng-auto-configure current-message set-default toggle default-value 1 nil t boundp delq add-to-list company-tng-frontend (company-tng-frontend company-pseudo-tooltip-frontend company-echo-metadata-frontend) advice-add eglot--snippet-expansion-fn :override ignore (company-pseudo-tooltip-unless-just-one-frontend company-preview-if-just-one-frontend company-echo-metadata-frontend) company-explicit-action-p advice-remove keymap-parent 0 run-hooks company-tng-mode-hook company-tng-mode-on-hook company-tng-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Company-Tng mode %sabled%s" "en" "dis" force-mode-line-update company-require-match company-clang-insert-arguments company-semantic-insert-arguments company-rtags-insert-arguments lsp-enable-snippet company-tng-map company-active-map company-selection-default local] 5 (#$ . 2439) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) |
| | 41 | (defvar company-tng-mode-hook nil) |
| | 42 | (byte-code "\301\302N\204\f\0\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\0\b\310\211%\210\314\315!\207" [company-tng-mode-map company-tng-mode-hook variable-documentation put "Hook run after entering or leaving `company-tng-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode company-tng-mode boundp provide company-tng] 6) |
projects / config.git / blame_incremental