;;; compiled by eric@geech.gnu.ai.mit.edu on Fri Mar 26 21:06:55 1993
;;; from file /gd/gnu/emacs/19.0/lisp/spell.el
;;; emacs version 19.0.509.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(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.")
(fset 'spell-buffer #[nil "ÀedÁ#‡" [spell-region "buffer"] 4 "\
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." nil])
(fset 'spell-word #[nil "À‰‰ŠÄÅ!„ ÆÇ!ˆ`ÆÈ!ˆ`)É\nÊ\n\"#+‡" [nil spell-filter end beg looking-at "\\<" forward-word -1 1 spell-region buffer-substring] 6 "\
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." nil])
(fset 'spell-region #[(start end &optional description) "ÁÂ!ŠqˆÅ ˆÆ ˆ)ÇÈ	† Ê\"ˆ„P SfÌUƒP ÍÏ\"ƒ= ÐÏÒ%ˆ‚ ÐÒÒÔ&ˆ‚ pŠqˆÖ#ˆn„g Ìcˆƒn  ˆÍÏ\"ƒ ÐedÏ×%ˆ‚ Ðed×ÒÔ&ˆ*ÇØ	†˜ ÊŠqˆÙ ÚV)ƒ¨ Û‚© Ü#ˆÒ‰×‰ ŠqˆÙ ÚV)…Šqˆebˆáâ`ã ˆ`\"! äå!ˆæe`\"ˆçè éQ \"êëì !íQ!ˆ)î \"„· ebˆïðì !ðQ\"ˆ‚· .‡" [spell-filter get-buffer-create " *temp*" buf filter widen erase-buffer message "Checking spelling of %s..." description "region" end 10 string= spell-command "spell" call-process-region start nil shell-file-name "-c" oldbuf insert-buffer-substring t "Checking spelling of %s...%s" buffer-size 0 "not correct" "correct" case-replace case-fold-search newword word 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"] 9 "\
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\"." "r"])
(fset 'spell-string #[(string) "ÀÁ!Š\nqˆÃ ˆÄ ˆcˆÆcˆÇÉ\"ƒ' ÊedÉË‰%ˆ‚5 ÊedË‰ÍÎ&ˆÏ ÐUƒC ÑÒ\"‚\\ ebˆÓÆÍË#ƒU ÔÕ!ˆ‚F ÑÖ×Ød\"\"*‡" [get-buffer-create " *temp*" buf widen erase-buffer string "\n" string= spell-command "spell" call-process-region t shell-file-name nil "-c" buffer-size 0 message "%s is correct" search-forward replace-match " " "%sincorrect" buffer-substring 1] 9 "\
Check spelling of string supplied as argument." "sSpell string: "])