;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; 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 #[0 "\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])#@97 `company-mode' completion backend for `oddmuse-mode'. (fn COMMAND &optional ARG &rest IGNORED) (defalias 'company-oddmuse #[641 "\303\267\202+\304\305!\207\306 \307>\205#\310\n\311 \"\205#\312\313!\206#\312\314!)\207\315\316 \"\207\306\207" [case-fold-search major-mode company-oddmuse-link-regexp #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 line-beginning-position match-string 1 2 all-completions company-oddmuse-get-page-table] 6 (#$ . 579) (byte-code "\300C\207" [interactive] 1)]) (provide 'company-oddmuse)