22 lines
1.9 KiB
Plaintext
22 lines
1.9 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!\210\300\303!\210\304\305\306\307\310\301%\210\311\312\306\313\314\315%\207" [require company cl-lib ispell custom-declare-group company-ispell nil "Completion backend using Ispell." :group custom-declare-variable company-ispell-dictionary "Dictionary to use for `company-ispell'.\nIf nil, use `ispell-complete-word-dict'." :type (choice (const :tag "default (nil)" nil) (file :tag "dictionary" t))] 6)
|
|||
|
|
(defvar company-ispell-available 'unknown)
|
|||
|
|
(byte-code "\300\301\302\303!\203\f \303\202
\304\"\207" [defalias company-ispell--lookup-words fboundp ispell-lookup-words lookup-words] 4)
|
|||
|
|
(defalias 'company-ispell-available #[nil "\302=\203\" \3031 \304\305!\210\306\2110\202! \307\310\311 !\"\210\312\211)\210\207" [company-ispell-available err unknown (error) company-ispell--lookup-words "WHATEVER" t message "Company-Ispell: %s" error-message-string nil] 4])
|
|||
|
|
#@49 `company-mode' completion backend using Ispell.
|
|||
|
|
(defalias 'company-ispell #[(command &optional arg &rest ignored) "\306\307\"\203 \310\311!\207\306\312\"\203 \313 \205M \314 \207\306\315\"\203< \316 \n\206( \"\317 \320\230\2036
\202: \321
\"*\207\306\322\"\203E \317\207\306\323\"\205M \324\207" [command arg company-ispell-dictionary ispell-complete-word-dict completion-ignore-case words eql interactive company-begin-backend company-ispell prefix company-ispell-available company-grab-word candidates company-ispell--lookup-words t "" all-completions sorted ignore-case keep-prefix] 3 (#$ . 1311) (list 'interactive)])
|
|||
|
|
(provide 'company-ispell)
|