Se agregan las configuraciones del tarro

[config.git] / djavu-asus / elpa / company-20230926.32 / company-tng.elc

;ELC\1c\0\0\0
;;; Compiled
;;; in Emacs version 28.2
;;; 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)
#@230 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.\1f
(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)])
(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)
(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))
#@269 Non-nil if Company-Tng mode is enabled.
See the `company-tng-mode' command
for a description of this minor mode.
Setting this variable directly does not take effect;
either customize it (see the info node `Easy Customization')
or call the function `company-tng-mode'.\1f
(custom-declare-variable 'company-tng-mode nil '(#$ . 2021) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :type 'boolean)
#@604 This minor mode enables `company-tng-frontend'.

This is a 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.\1f
(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))])
(defvar company-tng-mode-hook nil)
(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)