;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306\307\310\301\311\312& \210\313\314\315\304#\210\316\211\2039\211@\314N\2032\315N\2042\317\315\314N#\210A\266\202\202\210\320\314\315\321#\210\322\315\323\324\325DD\326\327\330\310\303\331\332& \210\313\333\334\304#\210\316\211\203y\211@\333N\203r\334N\204r\317\334\333N#\210A\266\202\202X\210\320\333\334\321#\210\322\334\323\324\335DD\336\327\337\310\303&\210\322\340\323\324\341DD\342\327\337\310\303\331\343& \210\322\344\323\324\345DD\346\327\337\310\303\331\347& \210\322\350\323\324\351DD\352\327\337\310\303&\210\322\353\323\324\354DD\355\327\337\310\303\331\356& \210\322\357\323\324\360DD\361\327\337\310\303\331\362& \210\322\363\323\324\364DD\365\327\337\310\303\331\366& \210\322\367\323\324\370DD\371\327\337\310\303\331\372& \207" [require lsp-mode custom-declare-group lsp-completion nil "LSP support for completion" :prefix "lsp-completion-" :group :tag "LSP Completion" defvaralias lsp-prefer-capf lsp-completion-provider (saved-value saved-variable-comment) put make-obsolete-variable "lsp-mode 7.0.1" custom-declare-variable funcall function #[0 "\300\207" [:capf] 1] "The completion backend provider." :type (choice (const :tag "Use company-capf" :capf) (const :tag "None" :none)) :package-version (lsp-mode . "7.0.1") lsp-enable-completion-at-point lsp-completion-enable #[0 "\300\207" [t] 1] "Enable `completion-at-point' integration." boolean lsp-completion-enable-additional-text-edit #[0 "\300\207" [t] 1] "Whether or not to apply additional text edit when performing completion.\n\nIf set to non-nil, `lsp-mode' will apply additional text edits\nfrom the server. Otherwise, the additional text edits are\nignored." (lsp-mode . "6.3.2") lsp-completion-show-kind #[0 "\300\207" [t] 1] "Whether or not to show kind of completion candidates." (lsp-mode . "7.0.1") lsp-completion-show-detail #[0 "\300\207" [t] 1] "Whether or not to show detail of completion candidates." lsp-completion-no-cache #[0 "\300\207" [nil] 1] "Whether or not caching the returned completions from server." (lsp-mode . "7.0.1") lsp-completion-filter-on-incomplete #[0 "\300\207" [t] 1] "Whether or not filter incomplete results." (lsp-mode . "7.0.1") lsp-completion-sort-initial-results #[0 "\300\207" [t] 1] "Whether or not filter initial results from server." (lsp-mode . "7.1") lsp-completion-use-last-result #[0 "\300\207" [t] 1] "Temporarily use last server result when interrupted by keyboard.\nThis will help minimize popup flickering issue in `company-mode'." (lsp-mode . "7.1")] 10) (defconst lsp-completion--item-kind [nil "Text" "Method" "Function" "Constructor" "Field" "Variable" "Class" "Interface" "Module" "Property" "Unit" "Value" "Enum" "Keyword" "Snippet" "Color" "File" "Reference" "Folder" "EnumMember" "Constant" "Struct" "Event" "Operator" "TypeParameter"]) #@59 Dont do client-side reordering completion items when set. (defvar lsp-completion--no-reordering nil (#$ . 2932)) #@36 Non-nil if VAL is falsy. (fn VAL) (defalias 'lsp-falsy\? #[257 "\211?\206\211\300\232\206\211\301=\207" ["" 0] 3 (#$ . 3051)]) #@96 Make completion item from lsp ITEM and with MARKERS and PREFIX. (fn ITEM &key MARKERS PREFIX) (defalias 'lsp-completion--make-item #[385 "\300\301\"A@\300\302\"A@\211\2037\211@\303>\203 \211AA\262\202 \304>A@\203.\305\262\202 \306\307@\"\210\202 \210\310\311\"\310\312\"\310\313\"\314\315\n\316\317\320\321& \207" [plist-member :markers :prefix (:markers :prefix :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:markers :prefix)" gethash "label" "sortText" "_emacsStartPoint" propertize lsp-completion-item lsp-sort-text lsp-completion-start-point lsp-completion-markers lsp-completion-prefix] 20 (#$ . 3189)]) #@34 Annotate ITEM detail. (fn ITEM) (defalias 'lsp-completion--annotate #[257 "\303\304\305\"\306\"\307\310\"\307\311\"\205\205\312\313\314\315#P \2053\205)\nH\211\2051\316\317\"\262P\207" [lsp-completion-show-detail lsp-completion-show-kind lsp-completion--item-kind plist-get text-properties-at 0 lsp-completion-item gethash "detail" "kind" " " s-replace " " "" format " (%s)"] 9 (#$ . 3866)]) #@109 Return trigger character if text before point match any of the TRIGGER-CHARACTERS. (fn TRIGGER-CHARACTERS) (defalias 'lsp-completion--looking-back-trigger-characterp #[257 "`\300 U?\205\f\301\302\"\207" [point-at-bol seq-some #[257 "\300`GZ`\"\232\205 \211\207" [buffer-substring-no-properties] 4 "\n\n(fn TRIGGER-CHAR)"]] 4 (#$ . 4283)]) #@191 Cached candidates for completion at point function. In the form of plist (prefix-pos items :lsp-items :prefix ...). When the completion is incomplete, `items' contains value of :incomplete. (defvar lsp-completion--cache nil (#$ . 4635)) #@25 Last completion result. (defvar lsp-completion--last-result nil (#$ . 4878)) #@90 Clear completion caches. KEEP-LAST-RESULT if specified. (fn &optional KEEP-LAST-RESULT) (defalias 'lsp-completion--clear-cache #[256 "\211\205\211AA\262\211\205\302\303\"\262\211\205\211A@\262\211\203&\211\304\211\223\210\210\304\211?\2051\304\211\207" [lsp-completion--cache lsp-completion--last-result plist-get :markers nil] 5 (#$ . 4961)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable lsp-completion-default-behaviour funcall function #[0 "\300\207" [:replace] 1] "Default behaviour of `InsertReplaceEdit'." :type (choice (const :insert :tag "Default completion inserts") (const :replace :tag "Default completion replaces")) :group lsp-mode :package-version (lsp-mode . "7.1")] 10) #@351 Guess ITEM's prefix start point according to following heuristics: - If `textEdit' exists, use insertion range start as prefix start point. - Else, find the point before current point is longest prefix match of `insertText' or `label'. And: - The character before prefix is not word constitute Return `nil' when fails to guess prefix. (fn INPUT0) (defalias 'lsp-completion--guess-prefix #[257 "\211\300\301\"\302!\203\303\304\305!!!\207\211\203\303\304\306!!!\207\300\307\"\300\310\"\311!\2041\211\2062`\312GZ]\211\206>`Sf\313W\203u\211\204u\203Vz\314=\204e\315\316\"\"\203e\262T\262\206n`Sf\262\202A\207" [gethash "textEdit" lsp-insert-replace-edit\? lsp--position-to-point lsp:range-start lsp:insert-replace-edit-insert lsp:text-edit-range "label" "insertText" lsp-falsy\? 1 nil 119 string-prefix-p buffer-substring-no-properties] 14 (#$ . 5720)]) #@47 Convert ITEMS into internal form. (fn ITEMS) (defalias 'lsp-completion--to-internal #[257 "\211\300\301\"\207" [-map #[257 "\211\300\301\"\300\302\"\300\303\"\300\304\"\305\306!\204\206\307\310\311\257\207" [gethash "label" "filterText" "_emacsStartPoint" "score" :label lsp-falsy\? :item :start-point :score] 14 "\n\n(fn INPUT0)"]] 5 (#$ . 6618)]) #@258 List all possible completions in cached ITEMS with their prefixes. We can pass LSP-ITEMS, which will be used when there's no cache. The MARKERS and PREFIX value will be attached to each candidate. (fn ITEMS &key LSP-ITEMS MARKERS PREFIX &allow-other-keys) (defalias 'lsp-completion--filter-candidates #[385 "\306\307\"A@\306\310\"A@\306\311\"A@\203\235\3121\313\3142z\314\313\315 \206_\316\317\320#\203\\\313C\313C\321\317\322#\f\"\266\202 \203M\211\202Q\323\324\"\316\325\"\262\262\202^\"\262\f\n=\203m\313\326\202v\f\203u\313\202v\211)\266\2020)0\202\205\210\326\327\330! \203\224\211\326=\203\224\331\332\333\"\207\334!\203\234\313\207\207\316\317\335#\203\316\313C\313C\321\317\336#\n\"\266\202 \203\277\211\202\303\323\337\"\316\340\"\262\262\202\317\"\207" [non-essential inhibit-quit throw-on-input lsp-completion--no-reordering quit-flag lsp--throw-on-input plist-member :lsp-items :markers :prefix (quit) nil #1=#:input input-pending-p -map make-closure #[257 "\302\303\300\304\301%\207" [V0 V1 lsp-completion--make-item :markers :prefix] 7 "\n\n(fn ITEM)"] -keep #[257 "\211\302\303\"\302\304\"\302\305\"\302\300\242\"\206%\306`\"\300\307\300\242#\240\210\211\262\302\301\242\"\206=\310!\301\307\301\242#\240\210\211\262G\311\"\205j\312\313\314\211 \n%\210\307\315\316\n\"\206_\317\206e\320_#\210\207" [V0 V1 plist-get :label :start-point :score buffer-substring-no-properties plist-put lsp-completion--regex-fuz string-match put-text-property 0 match-data :sort-score lsp-completion--fuz-score 1e-05 0.001] 14 "\n\n(fn INPUT0)"] sort #[514 "\300\301\"\300\301\"V\207" [plist-get :sort-score] 6 "\n\n(fn O1 O2)"] #[128 #2="\302\300\303\301\"\"\207" [plist-get (:item) apply append] 6 #3="\n\n(fn &rest ARGS-BEFORE)"] t eval (ignore nil) throw input :interrupted booleanp #[257 "\302\303\300\304\301%\207" [V0 V1 lsp-completion--make-item :markers :prefix] 7 "\n\n(fn ITEM)"] #[257 "\211\302\303\"\302\304\"\302\305\"\302\300\242\"\206%\306`\"\300\307\300\242#\240\210\211\262\302\301\242\"\206=\310!\301\307\301\242#\240\210\211\262G\311\"\205j\312\313\314\211 \n%\210\307\315\316\n\"\206_\317\206e\320_#\210\207" [V0 V1 plist-get :label :start-point :score buffer-substring-no-properties plist-put lsp-completion--regex-fuz string-match put-text-property 0 match-data :sort-score lsp-completion--fuz-score 1e-05 0.001] 14 "\n\n(fn INPUT0)"] #[514 "\300\301\"\300\301\"V\207" [plist-get :sort-score] 6 "\n\n(fn O1 O2)"] #[128 #2# [plist-get (:item) apply append] 6 #3#]] 16 (#$ . 6994)]) (defconst lsp-completion--kind->symbol '((1 . text) (2 . method) (3 . function) (4 . constructor) (5 . field) (6 . variable) (7 . class) (8 . interface) (9 . module) (10 . property) (11 . unit) (12 . value) (13 . enum) (14 . keyword) (15 . snippet) (16 . color) (17 . file) (18 . reference) (19 . folder) (20 . enum-member) (21 . constant) (22 . struct) (23 . event) (24 . operator) (25 . type-parameter))) #@32 Return ITEM's kind. (fn ITEM) (defalias 'lsp-completion--candidate-kind #[257 "\301\302\303\304\305#!\"\207" [lsp-completion--kind->symbol alist-get lsp:completion-item-kind\? get-text-property 0 lsp-completion-item] 7 (#$ . 10040)]) #@68 Return highlight of typed prefix inside CANDIDATE. (fn CANDIDATE) (defalias 'lsp-completion--company-match #[257 "\300\301\302\303\"\304\"`\"\227\211G\303\227\211G\303\305\211\204\201W\203\201W\203]W\203]HH\232\203G\211\204@\262T\262\202V\211\203VBC\244\262\305\262T\262\202 \211\203iBC\244\262W\203s\305\262\204T\262\303\262\202\207" [buffer-substring-no-properties plist-get text-properties-at 0 lsp-completion-start-point nil] 12 (#$ . 10283)]) #@49 Get doc comment for completion ITEM. (fn ITEM) (defalias 'lsp-completion--get-documentation #[257 "\300\301\302#\2042\211\211\205\300\301\303#\262\211\205\304!\262G\305\301\303%\210\305\301\302\306%\266\211\211\205<\300\301\303#\262\211\205E\307!\262\211\205N\310!\207" [get-text-property 0 lsp-completion-resolved lsp-completion-item lsp-completion--resolve put-text-property t lsp:completion-item-documentation\? lsp--render-element] 9 (#$ . 10794)]) #@83 Get completion context with provided TRIGGER-CHARACTERS. (fn TRIGGER-CHARACTERS) (defalias 'lsp-completion--get-context #[257 "\211\205\305!\211\203 \202\nA@\306=\203 \202\f\307\310\311D\205)\312D\244\"\207" [non-essential lsp/completion-trigger-kind-trigger-character lsp-completion--cache lsp/completion-trigger-kind-trigger-for-incomplete-completions lsp/completion-trigger-kind-invoked lsp-completion--looking-back-trigger-characterp :incomplete apply lsp-make-completion-context :trigger-kind :trigger-character\?] 9 (#$ . 11281)]) #@37 Sort COMPLETIONS. (fn COMPLETIONS) (defalias 'lsp-completion--sort-completions #[257 "\300\301\"\207" [sort #[514 "\300\301\"\300\302\"\300\301\"\300\302\"\232\203\231\207\231\207" [gethash "sortText" "label"] 8 "\n\n(fn INPUT0 INPUT1)"]] 4 (#$ . 11841)]) #@22 Get lsp completions. (defalias 'lsp-completion-at-point #[0 "\302\303 \304\302\211\211\203v\211A\262\242\262\262\211\262\203v\305\211!>\204-\306\307\310D\"\210\311H! >\204O\306\307\312\305!>\204I\306\307\310D\"\210\311HD\"\210\305!>\204^\306\307\310D\"\210\311H\313H\211\262\204v\262\262T\262\202\266\211\262\204\206\314\315 8?\205\362\316\317\320 !!\321\322!@\211\205\270\211\212\3231\263\211Tb\210\324!\203\256\211T\262\302u\210\202\236\2110\202\265\210\302)\262\262\206\276`\302C\302C\325\326%`\325\327\"\330\331\332\333\334\335\336\212 b\210\324!\205\343\337)\340\341\342\343\344\345\346\"\257\266\205\207" [cl-struct-lsp--workspace-tags cl-struct-lsp--client-tags nil lsp-workspaces 0 type-of signal wrong-type-argument lsp--workspace 5 lsp--client 24 4 syntax-ppss lsp:completion-options-trigger-characters\? lsp:server-capabilities-completion-provider\? lsp--server-capabilities bounds-of-thing-at-point symbol (error) lsp-completion--looking-back-trigger-characterp make-closure #[0 "\3062\225\f \2051 A@\204\307 AA\310\"\211\311\230\262?\2051 @\301\232\2051\312\307 AA\310\"\313\301`\"\"/\303\242\204>\302\242\203C\302\242\202\2210\204]\211\203] A@<\203]\302\314\315 A\"\240\202\221\316\317\320\321 \322\323\300!#\"\211\205v\324!\205u\325!?1\203\3261\336\3272\3302\331\330\3273\331 \206\272\324!\203\234\332!\202\235\204\250\333\334\"\203\256\335!\202\257\211\336\337\340\301\"\"\262\262\26243=\203\313\3274\341\202\3254\203\324\327\202\325\211)\266\2020)0\202\345\210\3414\342\343!/\203\367\211\341=\203\367\344\306\345\"\202\346!\203\327\202\211\262\2021\324!\203\332!\202\204\333\334\"\203%\335!\202&\211\336\337\347\301\"\"\262\262\301\350`\341\"D\313\301`\"5?6\351!\210\303\240\210\301\303\242\203[\352!\204[\353!\202b\303\242?\205b\354\355\327\356\310\257\302\315\303\242\203z A@\202\2027\205\202\353!\355\356\310&\240)\266\205)\266\2020\211\345=\203\2368\207\211\211\2118\207" [V0 V1 V2 V3 lsp-completion-use-last-result lsp-completion--cache input plist-get :prefix "" s-prefix\? buffer-substring-no-properties apply lsp-completion--filter-candidates lsp-request-while-no-input "textDocument/completion" plist-put lsp--text-document-position-params :context lsp-completion--get-context lsp-completion-list\? lsp:completion-list-is-incomplete (quit) nil #1=#:input input-pending-p lsp:completion-list-items seq-some lsp:completion-item-sort-text\? lsp-completion--sort-completions -map make-closure #[257 "\301\302\303!\206\n\300#\207" [V0 lsp-put :_emacsStartPoint lsp-completion--guess-prefix] 6 "\n\n(fn ITEM)"] t eval (ignore nil) throw :interrupted booleanp #[257 "\301\302\303!\206\n\300#\207" [V0 lsp-put :_emacsStartPoint lsp-completion--guess-prefix] 6 "\n\n(fn ITEM)"] copy-marker lsp-completion--clear-cache seq-empty-p lsp-completion--to-internal :incomplete :lsp-items :markers lsp--throw-on-input lsp-completion-no-cache non-essential inhibit-quit throw-on-input quit-flag lsp-completion-sort-initial-results lsp-completion--no-reordering lsp-completion-filter-on-incomplete lsp-completion--last-result] 16] #[771 "\211\301=\203\302\207\211\242\303=\203\304\207\211\204%\300 \211\205$\211A\203\"\207\211@\207\211\305\267\2020\304\207\300 \207\211?\205H\300 \211\205F\211A\203D\202F\211@\262\207" [V0 metadata (metadata (category . lsp-capf) (display-sort-function . identity)) boundaries nil #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (lambda 43 t 45))] 5 "\n\n(fn PROBE PRED ACTION)"] :annotation-function lsp-completion--annotate :company-kind lsp-completion--candidate-kind :company-require-match never :company-prefix-length t :company-match lsp-completion--company-match :company-doc-buffer #[128 "\302\300\"\301\303\304\211\203#\211A\262\242\262\262T\262!\262\202\266\207" [lsp-completion--get-documentation (company-doc-buffer) apply 0 nil] 8 "\n\n(fn &rest ARGS)"] :exit-function -rpartial lsp-completion--exit-fn] 24 (#$ . 12117)]) #@147 Exit function of `completion-at-point'. CANDIDATE is the selected completion item. Others: CANDIDATES (fn CANDIDATE STATUS &optional CANDIDATES) (defalias 'lsp-completion--exit-fn #[770 "\306\216\307\310\311\"\312\"\203\202\313 \314\315$\310\311\"\316\312\"\316\317\"\316\320\"\316\321\"\322!\2055\323\324\"\322!\205@\323\325\"\322!\205L\323\326\"\322!\205X\323\327\"\322!\205d\323\330 \"\322 !\205p\323\331\n\"\322\n!\205|\323\332 \"\203%\333\334\n\"\210c\210\322!\203S\335\336!\323\337#=?\262\262\203S\335\336!\323\340#=?\262\262\203\275\341!\210\202S\335\336!\323\342#=?\262\262\203S\335\336!\323\343#=?\262\262\203S\323\337\344#\262\323\343\344#\262\323\342\344#\262\341\345\346\347\203 \350=\204\204 \351=\203\202$!\266\202S\352!\2040\2045\203S\333\334\n\"\210c\210 `|\210\352!\204O\206Qc\210\353\n`#\210\n\232\203j\354\n`{ `#\210 \203\232\355\311\356#\204}\357!\204\205\360\361\"\210\202\232\362 \211A\262\242@\363\364\365\"#\266\355\311\356#\204\247\211\203\262\211\203\270\366!\210\202\270\363 \367\"\210\f\370=\204\344\371\f>\204\344\372\f>\203\361\322\373\374!!\205\330\323\375\373\374!\"\211\205\337\376!\262\203\361\377\201@!\203\361\201A \210\201B\305!\210\344\211\266\215)\207" [current-prefix-arg lsp-completion-default-behaviour lsp/insert-text-format-snippet lsp-completion-enable-additional-text-edit lsp-signature-auto-activate lsp-inhibit-lsp-hooks #[0 "\300 \207" [lsp-completion--clear-cache] 1] plist-member text-properties-at 0 lsp-completion-item cl-find :test equal plist-get lsp-completion-start-point lsp-completion-markers lsp-completion-prefix ht\? gethash "label" "insertText" "textEdit" "insertTextFormat" "additionalTextEdits" "insertTextMode" "command" apply delete-region make-symbol "ht--not-found" "newText" "range" lsp--apply-text-edit "insert" "replace" nil lsp-make-text-edit :new-text :range :replace :insert lsp-falsy\? lsp--indent-lines lsp--expand-snippet get-text-property lsp-completion-resolved seq-empty-p lsp--apply-text-edits completion lsp--create-apply-text-edits-handlers lsp-completion--resolve-async -compose lsp:completion-item-additional-text-edits\? lsp--execute-command #[257 "\300!\205\n\301\302\"\211\205\303!\207" [ht\? gethash "command" lsp--execute-command] 4 "\n\n(fn INPUT0)"] t :after-completion :on-trigger-char lsp--capability :signatureHelpProvider "triggerCharacters" lsp-completion--looking-back-trigger-characterp lsp-feature\? "textDocument/signatureHelp" lsp-signature-activate make-local-variable] 29 (#$ . 16254)]) #@74 Build a regex sequence from STR. Insert .* between each char. (fn STR) (defalias 'lsp-completion--regex-fuz #[257 "\300\301\302\301\303\304\305\"AB\304\306\"#\"\207" [apply concat cl-mapcar "" seq-map #[257 "\300\301\"\207" [format "[^%c]*"] 4 "\n\n(fn C)"] #[257 "\300\301\302\303!!\"\207" [format "\\(%s\\)" regexp-quote char-to-string] 6 "\n\n(fn C)"]] 9 (#$ . 18929)]) #@108 Calculate fuzzy score for STR with query QUERY. The return is nil or in range of (0, inf). (fn QUERY STR) (defalias 'lsp-completion--fuz-score #[514 "\300\301\302#\206\303!\304\"\205\302 \262AA\211\205\237\211A\262\242\211\205\235G\211\205\233\301C\211\242\205\231\301C\211\242\205\227\305C\211\242\205\225\301C\211\242\205\223\306\307\n\n&\211\205\221\203\202\211 @\"\210\211\242T\240\210A\262\211A\262 \242\262\202^\301U?\205\221\310\242\242T\311#\262\262\262\262\262\262\262\207" [get-text-property 0 match-data lsp-completion--regex-fuz string-match -1 make-closure #[514 "\303\211\242Z\\\240\210\302U\204W\300\306\242H\301H\232\204\307\\\262\304\211\242\305\242U\203-\310\202T\310\305\242ZSW\203;\311\202<\312\313\314\305\242ZS!\305\242\312=\203P\315\202Q\316\"_T\\\240\210\305\240\207" [V0 V1 V2 V3 V4 V5 V6 0.9 0 1 -1 expt abs 0.75 0.25] 9 "Update score variables given match range (A B).\n\n(fn A B)"] / 1.0] 18 (#$ . 19317)]) #@13 (fn ITEM) (defalias 'lsp-completion--fix-resolve-data #[257 "\300!\301\302\"\205\303\302\"?\205\304\302\305#\207" [lsp:completion-item-data\? lsp-member\? :import_for_trait_assoc_item lsp-get lsp-put :json-false] 6 (#$ . 20337)]) #@37 Resolve completion ITEM. (fn ITEM) (defalias 'lsp-completion--resolve #[257 "\211\204 \300\301\302\303\211$\210\304!\210\3051!\306\307!\205\310\307\"0\202%\210\202(\206)\211\207" [cl--assertion-failed item "Completion item must not be nil" nil lsp-completion--fix-resolve-data (error) lsp-feature\? "completionItem/resolve" lsp-request] 6 (#$ . 20583)]) #@138 Resolve completion ITEM asynchronously with CALLBACK. The CLEANUP-FN will be called to cleanup. (fn ITEM CALLBACK &optional CLEANUP-FN) (defalias 'lsp-completion--resolve-async #[770 "\204 \300\301\302\303\211$\210\304!\210\3051?\306\307!\2033\310\307\311\312#\313\311\314\"\315\316\317& \202=!\210\211\205=\211 0\207\210\303\207" [cl--assertion-failed item "Completion item must not be nil" nil lsp-completion--fix-resolve-data (error) lsp-feature\? "completionItem/resolve" lsp-request-async make-closure #[257 "\300!\210\301\205\n\301 \207" [V0 V1] 3 "\n\n(fn RESULT)"] :error-handler #[257 "\300\203\300 \210\301\302!!\207" [V0 error lsp:json-error-message] 4 "\n\n(fn ERR)"] :cancel-handler :mode alive] 13 (#$ . 20954)]) #@32 Enable LSP completion support. (defalias 'lsp-completion--enable #[0 "\205 \301\302!\205 \303\304!\207" [lsp-completion-enable lsp-feature\? "textDocument/completion" lsp-completion-mode 1] 2 (#$ . 21711)]) #@33 Disable LSP completion support. (defalias 'lsp-completion--disable #[0 "\300\301!\207" [lsp-completion-mode -1] 2 (#$ . 21927)]) #@107 Non-nil if Lsp-Completion mode is enabled. Use the command `lsp-completion-mode' to change this variable. (defvar lsp-completion-mode nil (#$ . 22063)) (make-variable-buffer-local 'lsp-completion-mode) #@594 Toggle LSP completion support. This is a minor mode. If called interactively, toggle the `Lsp-Completion 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 `lsp-completion-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'lsp-completion-mode #[256 "\306 \307=\203 ?\202\247\203\310W\203\311\202\312\313\301!\2031\314\300 \"\2031\300 B\315\316\203\252\317\302!\210\311\320\302\321\311\312$\210\317\303!\210\322\303\323\"\f\324=\204\206\f\324=\204\202\325\326!\203\202\317\305!\210\311\326\310!\210\317\327!\210\330>\203y\202}\330B\202\206\331\332!\210\313\326!\203\237\203\237\320\333\311\312$\210\320\334\311\312$\210\320\335\336\311\312$\266\202\325\337\302\321\312#\210\317\303!\210\340\341 \342\343$\337\335\336\312#\210\344\345!\203\323\337\333\312#\210\337\334\312#\210\266\346\347\203\337\350\202\340\351\"\210\352\353!\203\306 \203\364\211\306 \232\203\354\355\203\376\356\202\377\357\360#\210\210\361 \210\207" [lsp-completion-mode local-minor-modes completion-at-point-functions completion-category-defaults lsp-completion-provider company-abort-on-unique-match current-message toggle 1 nil t boundp delq #[128 "\301\300!\210\302\211\207" [lsp-inhibit-lsp-hooks make-local-variable t] 3 "\n\n(fn &rest _)"] #[257 "\211;\203\301 \210\302\300!\210\303\211\207" [lsp-inhibit-lsp-hooks lsp-completion--clear-cache make-local-variable nil] 3 "\n\n(fn RESULT)"] make-local-variable add-hook lsp-completion-at-point add-to-list (lsp-capf (styles basic)) :none fboundp company-mode company-backends company-capf lsp--warn "Unable to autoconfigure company-mode." company-completion-started-hook company-after-completion-hook lsp-unconfigure-hook lsp-completion--disable remove-hook cl-remove lsp-capf :key cl-first featurep company run-hooks lsp-completion-mode-hook lsp-completion-mode-on-hook lsp-completion-mode-off-hook called-interactively-p any message "Lsp-Completion mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 9 (#$ . 22272) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar lsp-completion-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\313\314\300!\205#\310\211%\210\315\316\317\"\207" [lsp-completion-mode-map lsp-completion-mode-hook variable-documentation put "Hook run after entering or leaving `lsp-completion-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 lsp-completion-mode "" boundp add-hook lsp-configure-hook #[0 "\205\n \205\n\302 \207" [lsp-auto-configure lsp-completion-enable lsp-completion--enable] 1]] 6) (defconst lsp-completion-plist-value-when-compiled nil) (provide 'lsp-completion)