;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require company cl-lib] 2) (defvar company-oddmuse-link-regexp "\\(\\<[A-Z][[:alnum:]]*\\>\\)\\|\\[\\[\\([[:alnum:]]+\\>\\|\\)") (defalias 'company-oddmuse-get-page-table #[nil "\303\267\202\304 !\207\305\n!\207\306\207" [major-mode yaoddmuse-wikiname oddmuse-wiki #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (yaoddmuse-mode 6 oddmuse-mode 10)) yaoddmuse-get-pagename-table oddmuse-make-completion-table nil] 2]) #@55 `company-mode' completion backend for `oddmuse-mode'. (defalias 'company-oddmuse #[(command &optional arg &rest ignored) "\305\267\202+\306\307!\207\310\n\311>\205#\312 \313 \"\205#\314\315!\206#\314\316!)\207\317\f\320 \"\207\310\207" [command case-fold-search major-mode company-oddmuse-link-regexp arg #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (interactive 6 prefix 10 candidates 37)) company-begin-backend company-oddmuse nil (oddmuse-mode yaoddmuse-mode) looking-back point-at-bol match-string 1 2 all-completions company-oddmuse-get-page-table] 3 (#$ . 585) (list 'interactive)]) (provide 'company-oddmuse)