;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:51:29 1995
;;; from file /gd/gnu/emacs/19.0/lisp/spell.el
;;; emacs version 19.28.90.26.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/gd/gnu/emacs/19.0/lisp/spell.el' was compiled for Emacs 19"))


#@36 *Command to run the spell program.
(defvar spell-command "spell" (#$ . -479))
#@173 *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.
(defvar spell-filter nil (#$ . -564))
(put (quote spell-filter) (quote risky-local-variable) t)
#@298 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.
(defalias 'spell-buffer #[nil "ÀedÁ#‡" [spell-region "buffer"] 4 (#$ . 839) nil])
#@156 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.
(defalias 'spell-word #[nil "À‰‰ŠÄÅ!„ Ævˆ`Çvˆ`)È\n\n{#+‡" [nil spell-filter end beg looking-at "\\<" -1 1 spell-region] 5 (#$ . 1225) nil])
#@181 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".
(defalias 'spell-region #[(start end &optional description) "ÁÂ!Šqˆ~ˆÅ ˆ)ÆÇ† É\"ˆ\f„N \nSfËUƒN \fÍ˜ƒ; Î\nÍÐ%ˆ‚ Î\nÐÐÒ\f&ˆ‚ pŠqˆÔ\n#ˆn„e Ëcˆ\fƒl \f ˆ\fÍ˜ƒ~ ÎedÍÕ%ˆ‚Œ ÎedÕÐÒ\f&ˆ*ÆÖ†• ÉŠqˆ× ØV)ƒ¥ Ù‚¦ Ú#ˆÐ‰Õ‰Šqˆ× ØV)…Šqˆebˆ`Ðˆ`{—ßuˆe`|ˆàáâQ\"ãäå!æQ!ˆ)š„´ ebˆçèå!èQ\"ˆ‚´ .‡" [spell-filter get-buffer-create " *temp*" buf filter erase-buffer message "Checking spelling of %s..." description "region" end 10 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 1 read-input "`" "' not recognized; edit a replacement: " flush-lines "^" regexp-quote "$" query-replace-regexp "\\b"] 9 (#$ . 1535) "r"])
#@48 Check spelling of string supplied as argument.
(defalias 'spell-string #[(string) "ÀÁ!Š\nqˆ~ˆÃ ˆ\fÅ±ˆÇ˜ƒ$ ÈedÇÉ‰%ˆ‚2 Èed\nÉ‰ËÌ&ˆÍ ÎUƒ@ ÏÐ\f\"‚X ebˆÑÅËÉ#ƒR ÒÓ!ˆ‚C ÏÔÕd{\"*‡" [get-buffer-create " *temp*" buf erase-buffer string "\n" spell-command "spell" call-process-region t shell-file-name nil "-c" buffer-size 0 message "%s is correct" search-forward replace-match " " "%sincorrect" 1] 9 (#$ . 2552) "sSpell string: "])