;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:16:39 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/obsolete/spell.el
;;; in Emacs version 24.0.50.1
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(custom-declare-group 'spell nil "Interface to the UNIX spell(1) program." :prefix "spell-" :group 'applications)
#@35 Command to run the spell program.
(custom-declare-variable 'spell-command '"spell" '(#$ . 662) :type 'string :group 'spell)
#@172 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.
(custom-declare-variable 'spell-filter 'nil '(#$ . 793) :type '(choice (const nil) function) :group 'spell)
(put 'spell-filter '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 "\300ed\301#\207" [spell-region "buffer"] 4 (#$ . 1123) nil])
(make-obsolete 'spell-buffer 'ispell-buffer "23.1")
#@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 "\303\211\211\212\304\305!\204\306v\210`\307v\210`)\310\n	\n	{#+\207" [spell-filter end beg nil looking-at "\\<" -1 1 spell-region] 5 (#$ . 1571) nil])
(make-obsolete 'spell-word 'ispell-word "23.1")
#@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) "\306\307!r	q\210~\210\310 \210)\311\312\206\313\"\210\n\204H\fSf\314U\203H
\315\230\2037\316\"\f\315\317	%\210\202\204\316\"\f#\317	\317\320
&\210\202\204p$r	q\210\321$\"\f#\210n\204^\314c\210\n\203e\n \210
\315\230\203v\316ed\315\322	%\210\202\203\316ed#\322	\317\320
&\210*\311\323\206\213\313r	q\210\324 \325V)\203\233\326\202\234\327#\210\317\211\322\211%&'(r	q\210\324 \325V)\205\375r	q\210eb\210`\317\210`{\227(\330u\210e`|\210\331\332(\333Q(\"'\334\335\336(!\337Q!\210)('\232\204\252eb\210\340\341\336(!\341Q'\"\210\202\252.\207" [spell-filter buf filter description end spell-command get-buffer-create " *temp*" erase-buffer message "Checking spelling of %s..." "region" 10 "spell" call-process-region nil "-c" insert-buffer-substring t "Checking spelling of %s...%s" buffer-size 0 "not correct" "correct" 1 read-string "`" "' not recognized; edit a replacement: " flush-lines "^" regexp-quote "$" query-replace-regexp "\\b" start shell-file-name oldbuf case-replace case-fold-search newword word] 9 (#$ . 1968) "r"])
(make-obsolete 'spell-region 'ispell-region "23.1")
#@48 Check spelling of string supplied as argument.
(defalias 'spell-string #[(string) "\304\305!rq\210\306\216~\210\307 \210	\310\261\210\n\311\230\203%\312ed\311\313\211%\210\2021\312ed\313\211\314\315\n&\210\316 \317U\203?\320\321	\"\202Web\210\322\310\314\313#\203Q\323\324!\210\202B\320\325\326d{\"+\207" [#1=#:temp-buffer string spell-command shell-file-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) erase-buffer "\n" "spell" call-process-region t nil "-c" buffer-size 0 message "%s is correct" search-forward replace-match " " "%sincorrect" 1] 9 (#$ . 3339) "sSpell string: "])
(byte-code "\300\301\302\303#\210\304\305!\207" [make-obsolete spell-string "The `spell' package is obsolete - use `ispell'." "23.1" provide spell] 4)
