;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require zenscript-common zenscript-language] 2) #@53 Complete PREFIX with context at point. (fn PREFIX) (defalias 'zenscript-complete-other #[257 "\302\303 \304 \305\306\307 \"$\"\207" [zenscript-all-keywords zenscript-constants all-completions append zenscript--buffer-vals mapcar car zenscript--get-bindings] 10 (#$ . 176)]) #@42 Complete the import PREFIX. (fn PREFIX) (defalias 'zenscript-complete-import #[257 "\300\301 \"\207" [all-completions zenscript--get-importables] 4 (#$ . 459)]) #@60 Return non-nil if the current line is an import statement. (defalias 'zenscript--looking-at-import-p #[0 "\212\301 \210\302\303\304!)\262)\207" [inhibit-changing-match-data back-to-indentation "import" t looking-at] 3 (#$ . 628)]) #@70 Complete the access to the member starting with PREFIX. (fn PREFIX) (defalias 'zenscript-complete-member-access #[257 "\300 \210\301\302\303!\"\207" [zenscript--looking-at-member-access-p all-completions zenscript--get-members nil] 5 (#$ . 868)]) #@72 Return non-nil if searching REGEX backwards ends at point. (fn REGEX) (defalias 'zenscript--looking-at-backwards-p #[257 "`\212\300e\301#\203\302\225\206\302)U\207" [re-search-backward t 0] 6 (#$ . 1123)]) #@45 Return non-nil if looking at member access. (defalias 'zenscript--looking-at-member-access-p #[0 "\300\301!\207" [zenscript--looking-at-backwards-p "\\.\\(\\([a-zA-Z_][a-zA-Z_0-9]*\\)?\\)"] 2 (#$ . 1341)]) #@63 Complete the preprocessor beginning with PREFIX. (fn PREFIX) (defalias 'zenscript--complete-preprocessor #[257 "\301\302\303\"\"\207" [zenscript-preprocessors all-completions mapcar #[257 "\300P\207" ["#"] 3 "\n\n(fn PP)"]] 6 (#$ . 1553)]) #@46 Return non-nil if looking at a preprocessor. (defalias 'zenscript--looking-at-preprocessor-p #[0 "\300\301!\207" [zenscript--looking-at-backwards-p "#\\w*"] 2 (#$ . 1803)]) #@31 Complete the symbol at point. (defalias 'zenscript-complete-at-point #[0 "\300 \203\301\302!\211\203\211@\202``\303\304!E\207\305 \203&\306\224\306\225\303\307!E\207\310 \2034\311\224\311\225\303\312!E\207\301\313!\211\203@\211@\202A``\303\314!E\207" [zenscript--looking-at-import-p bounds-of-thing-at-point symbol completion-table-dynamic zenscript-complete-import zenscript--looking-at-member-access-p 1 zenscript-complete-member-access zenscript--looking-at-preprocessor-p 0 zenscript--complete-preprocessor zenscript-identifier zenscript-complete-other] 5 (#$ . 1982)]) #@65 Initialize hooks and locals required by `zenscript-completion`. (defalias 'zenscript--init-completion #[0 "\300\301\302\303\211$\207" [add-hook completion-at-point-functions zenscript-complete-at-point t] 5 (#$ . 2572)]) (provide 'zenscript-completion)