mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-17 5cb5f70b1872a757e93ea333b0e2dca50c6c8957
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!\207" [require company cl-lib] 2)
16 (defvar company-tng--overlay nil nil)
17 (make-variable-buffer-local 'company-tng--overlay)
18 #@230 When the user changes the selection at least once, this
19 frontend will display the candidate in the buffer as if it's
20 already there and any key outside of `company-active-map' will
21 confirm the selection and finish the completion.
22 (defalias 'company-tng-frontend #[(command) "\306\267\202{\307``\"\211\310    \311\312#\210)\313\314\315\316#\210\313\317\320\321#\207\n \f8 G !\322    ` Z`#\210\310     \323U\203A\324\202B\325\"\205I!#+\207\n\203X\326\n!\210\327\302!\210\330\314\316\"\210\330\317\321\"\207\"\205z\331\332 !?\205|\333 \210\334#\313\335\315\336#\207\337\207" [command ov company-tng--overlay company-selection company-candidates company-prefix #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (show 6 update 32 hide 76 pre-command 98)) make-overlay overlay-put priority 2 advice-add company-select-next :before-until company-tng--allow-unselected company-fill-propertize :filter-args company-tng--adjust-tooltip-highlight move-overlay 0 after-string display delete-overlay kill-local-variable advice-remove company--company-command-p this-command-keys company--unread-this-command-keys company-complete-selection company-call-backend company-tng--supress-post-completion nil prefix selected company-selection-changed this-command] 5 (#$ . 566)])
23 #@58 Applies the default configuration to enable company-tng.
24 (defalias 'company-tng-configure-default #[nil "\304\305\n\306 \307\304#\210\306 \310\304#\210\306 \311\312#\210\306 \313\312#\210\306 \314\315#\210\306 \316\315#)\207" [company-require-match company-frontends company-active-map keymap nil (company-tng-frontend company-pseudo-tooltip-frontend company-echo-metadata-frontend) define-key [return] " " [tab] company-select-next "    " [backtab] company-select-previous [33554441]] 4 (#$ . 1877)])
25 #@679 Advice `company-select-next' to allow for an 'unselected'
26 state. Unselected means that no user interaction took place on the
27 completion candidates and it's marked by setting
28 `company-selection-changed' to nil. This advice will call the underlying
29 `company-select-next' unless we need to transition to or from an unselected
30 state.
31
32 Possible state transitions:
33 - (arg > 0) unselected -> first candidate selected
34 - (arg < 0) first candidate selected -> unselected
35 - (arg < 0 wrap-round) unselected -> last candidate selected
36 - (arg < 0 no wrap-round) unselected -> unselected
37
38 There is no need to advice `company-select-previous' because it calls
39 `company-select-next' internally.
40 (defalias 'company-tng--allow-unselected #[(&optional arg) "\203\n\303V\203    ?\2058\304\206\305S\306\"\210\307\207\303W\2058    \2058\n\\\303W\2058\304\303!\210\310\311\312!\210\307\207" [arg company-selection-changed company-selection 0 company-set-selection 1 force-update t nil company-call-frontends update] 3 (#$ . 2386)])
41 #@133 Prevent the tooltip from highlighting the current selection if it wasn't
42 made explicitly (i.e. `company-selection-changed' is true)
43 (defalias 'company-tng--adjust-tooltip-highlight #[(args) "\204 \303    \233\211\304\240\210)    \207" [company-selection-changed args #1=#:c 3 nil] 3 (#$ . 3410)])
44 #@344 Installed as a :before-until advice on `company-call-backend' and
45 prevents the 'post-completion command from being delivered to the backend
46 for the next iteration. post-completion do things like expand snippets
47 which are undesirable because completions are implicit in company-tng and
48 visible side-effects after the completion are surprising.
49 (defalias 'company-tng--supress-post-completion #[(command &rest args) "\301=\205\f\302\303\304\"\210\305\207" [command post-completion advice-remove company-call-backend company-tng--supress-post-completion t] 3 (#$ . 3711)])
50 (provide 'company-tng)