
(defvar spell-command "spell" "\
*Command to run the spell program.")

(defvar spell-filter nil "\
*Filter function to process text before passing it to spell program.
This function might remove text-processor commands.
nil means don't alter the text before checking it.")

(defun spell-buffer nil "\
Check spelling of every word in the buffer.
For each incorrect word, you are asked for the correct spelling
and then put into a query-replace to fix some or all occurrences.
If you do not want to change a word, just give the same word
as its \"correct\" spelling; then the query replace is skipped." (interactive) (byte-code "А€БedВ#‡" [nil spell-region "buffer"] 4))

(defun spell-word nil "\
Check spelling of word at or before point.
If it is not correct, ask user for the correct spelling
and query-replace the entire buffer to substitute it." (interactive) (byte-code "Г€ГГГЉДЕ!?… ЖЗ!€`‰€ЖИ!€`‰)€Й	К	\"#+‡" [beg end spell-filter nil looking-at "\\<" forward-word -1 1 spell-region buffer-substring] 9))

(defun spell-region (start end &optional description) "\
Like spell-buffer but applies only to region.
Used in a program, applies from START to END.
DESCRIPTION is an optional string naming the unit being checked:
for example, \"word\"." (interactive "r") (byte-code "З€	ПР!Љ
q€С €Т )€УФ† Х\"€?…& ЦSfUѓK ЧШ\"ѓ; ЩШЗ
%‚H ЩЗ
ЗЪ&‚€ p	Љ
q€Ы	#€n†` Цc€…h Ь!€ЧШ\"ѓz ЩedШК
%‚† ЩedК
ЗЪ&))€УЭ†ђ ХЉ
q€Ю ЯV)ѓ  а‚Ў б#€ЗЗККЉ
q€Ю ЯV)…Љ
q€eb€вг`д €`\"!‰€еж!€зe`\"€ийкQ\"‰€лмн!оQ!)€п\"?…eb€рсн!сQ\"€‚Ї ,*‡" [filter spell-filter buf description end spell-command start nil shell-file-name oldbuf t word newword case-fold-search case-replace get-buffer-create " *temp*" widen erase-buffer message "Checking spelling of %s..." "region" 10 string= "spell" call-process-region "-c" insert-buffer-substring funcall "Checking spelling of %s...%s" buffer-size 0 "not correct" "correct" downcase buffer-substring end-of-line forward-char 1 delete-region read-input "`" "' not recognized; edit a replacement: " flush-lines "^" regexp-quote "$" equal query-replace-regexp "\\b"] 30))

(defun spell-string (string) "\
Check spelling of string supplied as argument." (interactive "sSpell string: ") (byte-code "Е€ЖЗ!Љq€И €Й €К	Л\"€МН
\"ѓ& ОedНГГ%‚1 ОedГГЕП
&€РС Uѓ@ ТУ	\"‚Z eb€ФЛЕГ#…R ХЦ!€‚C €ТЧШЩd\"\"))‡" [buf string spell-command t shell-file-name nil get-buffer-create " *temp*" widen erase-buffer insert "
" string= "spell" call-process-region "-c" 0 buffer-size message "%s is correct" search-forward replace-match " " "%sincorrect" buffer-substring 1] 16))