;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\303\304\305\306\307DD\310\311\312\313\314&\210\303\315\305\306\316DD\317\311\312\313\320&\207" [require ispell ebdb custom-declare-variable ebdb-ispell-min-word-length funcall function #[0 "\300\207" [2] 1] "Words with fewer characters are ignored." :group ebdb-utilities-ispell :type number ebdb-ispell-ignore-re #[0 "\300\207" [#1="[^[:alpha:]]"] 1 #1#] "Words matching this regexp are ignored." regexp] 8) #@54 Export EBDB records to ispell personal dictionaries. (defalias 'ebdb-ispell-export #[0 "\303\304!\210\305\306\307\211\204\310 \210\203*\311\312\313\314\315\316\"\317\"\320\321% \"\266\202\202- \266\202\"\322\323 \210\324 \210\325\326!\210\307\327!\211\203\203\211@\325\330\331Q!\210\332 \210\n@\333\230\203J\nA\211\203|\n<\203|\334\n@!\335=\204|\325\336\331Q!\210\303\337T\211\262\"\210\335\262A\266\202\202=\210\211\203\226\325\340!\210\332 \210\n@\333\230\203\214\210\303\341\"\207" [ebdb-db-list ebdb-record-tracker ispell-filter message "Exporting 0 words to personal dictionary..." seq-mapcat #[257 "\301\302\303\"\304!>\204\305\306\307D\"\210\211\310H\262\302\303\"\304!>\204,\305\306\307D\"\210\211\311H\262B!\207" [cl-struct-ebdb-record-cache-tags ebdb-ispell-collect-words slot-value cache type-of signal wrong-type-argument ebdb-record-cache 1 2] 8 "\n\n(fn R)"] nil ebdb-load seq-filter make-byte-code 257 "\301\203 \302\300\"\207\303\300\"\207" vconcat vector [object-of-class-p same-class-p] 4 "\n\n(fn R)" 0 ispell-set-spellchecker-params ispell-init-process ispell-send-string "%\n" delete-dups "^" "\n" ispell-accept-output "" ispell-parse-output t "*" "Exporting %d words to personal dictionary..." "#\n^hello\n" "Exporting %d words to personal dictionary...done"] 13 (#$ . 858) nil]) #@180 Find all individual words in STRINGS and filter. Removes strings that are too short (`ebdb-ispell-min-word-length') or explicitly ignored (`ebdb-ispell-ignore-re'). (fn STRINGS) (defalias 'ebdb-ispell-collect-words #[257 "\300\301\302\303\"\"\207" [seq-filter #[257 "\211GY\205\f\302 \"?\207" [ebdb-ispell-min-word-length ebdb-ispell-ignore-re string-match] 4 "\n\n(fn WORD)"] seq-mapcat #[257 "\300\301\"\207" [split-string "[ ,]"] 4 "\n\n(fn S)"]] 6 (#$ . 2210)]) (provide 'ebdb-ispell)