;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require company cl-lib] 2) (defvar company-tng--overlay nil nil) (make-variable-buffer-local 'company-tng--overlay)#@244 When the user changes the selection at least once, this frontend will display the candidate in the buffer as if it's already there and any key outside of `company-active-map' will confirm the selection and finish the completion. (fn COMMAND) (defalias 'company-tng-frontend #[257 "\211\305\267\202p\306``\"\211\307\310\311#\207 \205 \n8\312 @G\313`Z`#\210\307\314U\2032\315\2023\316#\207\205q\317!\210\320\300!\207 \205T\321\322 !?\205q\323 \210\324\211\207 \324=\205o\312 @G\314U\205o\325h\f@\"\205q\326\327!\207\330\207" [company-tng--overlay company-selection company-candidates this-command unread-command-events #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (show 6 update 18 hide 54 pre-command 66 post-command 85)) make-overlay overlay-put priority 2 company--boundaries 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 eql delete-char -1 nil] 8 (#$ . 241)]) (byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315%\210\316\317\320\321#\210\322\317\320\323#\207" [custom-declare-group company-tng nil "Company Tab and Go." :group company custom-declare-variable company-tng-auto-configure funcall function #[0 "\300\207" [t] 1 ""] "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.10.0"] 6) (defvar company-tng-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\303\307\310#\210\303\311\310#\210\303\312\313#\210\303\314\313#\210\207" [company-active-map make-sparse-keymap set-keymap-parent define-key [return] nil " " [tab] company-select-next " " [backtab] company-select-previous [33554441]] 5)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable company-tng-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Company-Tng mode is enabled.\nSee the `company-tng-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `company-tng-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean] 10)#@631 This minor mode enables `company-tng-frontend'. This is a global minor mode. If called interactively, toggle the `Company-Tng mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `(default-value \='company-tng-mode)'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'company-tng-mode #[256 "\306 \307\301\310=\203\311\301!?\202!\247\203 \312W\203 \313\202!\314\"\210\315\300!\2038\316\301\"\311\301!\2038\301B \203d\317\302\320\" \203^\321\313\211\313\211)*\313+\322\323\324\325#\210,-\313.\202\205\326 \203\202\327\314\211)\314\211*+\330\323\325\"\210\331,!-\332.\333\334\311\301!\203\221\335\202\222\336\"\210\337\340!\203\273\341\301!\210\306 \203\252\211\306 \232\203\273\342\343\344\311\301!\203\267\345\202\270\346\347$\210\210\350 \210\311\301!\207" [global-minor-modes company-tng-mode company-frontends company-tng-auto-configure company-require-match company-clang-insert-arguments 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 "%s %sabled%s" "Company-Tng mode" "en" "dis" "" force-mode-line-update company-semantic-insert-arguments company-rtags-insert-arguments lsp-enable-snippet company-tng-map company-active-map company-selection-default] 8 (#$ . 2670) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar company-tng-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\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)