21 lines
1.4 KiB
Plaintext
21 lines
1.4 KiB
Plaintext
|
;ELC
|
|||
|
|
;;; Compiled
|
|||
|
|
;;; in Emacs version 26.3
|
|||
|
|
;;; with all optimizations.
|
|||
|
|
|
|||
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|||
|
|
|
|||
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
|||
|
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|||
|
|
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|||
|
|
|
|||
|
|
|
|||
|
|
(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\304\"\203 \305 !\207\303\306\"\205 \307\n!\207" [major-mode yaoddmuse-wikiname oddmuse-wiki eql yaoddmuse-mode yaoddmuse-get-pagename-table oddmuse-mode oddmuse-make-completion-table] 3])
|
|||
|
|
#@55 `company-mode' completion backend for `oddmuse-mode'.
|
|||
|
|
(defalias 'company-oddmuse #[(command &optional arg &rest ignored) "\305\306\"\203 \307\310!\207\305\311\"\203- \312\n\313>\205+ \314 \315 \"\205+ \316\317!\206+ \316\320!)\207\305\321\"\2059 \322\f\323 \"\207" [command case-fold-search major-mode company-oddmuse-link-regexp arg eql interactive company-begin-backend company-oddmuse prefix nil (oddmuse-mode yaoddmuse-mode) looking-back point-at-bol match-string 1 2 candidates all-completions company-oddmuse-get-page-table] 3 (#$ . 824) (list 'interactive)])
|
|||
|
|
(provide 'company-oddmuse)
|