;ELC ;;; Compiled by rms@psilocin.gnu.org on Sun Mar 8 19:08:43 1998 ;;; from file /gd/gnu/emacs/lisp/textmodes/spell.el ;;; in Emacs version 20.2.89.6 ;;; with bytecomp version 2.38 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`spell.el' was compiled for Emacs 19.29 or later")) (custom-declare-group 'spell nil "Interface to the UNIX spell(1) program." :prefix "spell-" :group 'applications) #@36 *Command to run the spell program. (custom-declare-variable 'spell-command '"spell" '(#$ . -649) :type 'string :group 'spell) #@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. (custom-declare-variable 'spell-filter 'nil '(#$ . -782) :type '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 (#$ . 1093) 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 "\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 (#$ . 1489) 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) "\306\307!\212 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$\212 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\313\212 q\210\324 \325V)\203\233\326\202\234\327#\210\317\211\322\211%&'(\212 q\210\324 \325V)\205\375\212 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-input "`" "' 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 (#$ . 1838) "r"]) #@48 Check spelling of string supplied as argument. (defalias 'spell-string #[(string) "\304\305!\212q\210~\210\306 \210 \307\261\210\n\310\230\203#\311ed\310\312\211%\210\202/\311ed \312\211\313\314\n&\210\315 \316U\203=\317\320 \"\202Ueb\210\321\307\313\312#\203O\322\323!\210\202@\317\324\325d{\"*\207" [buf string spell-command shell-file-name get-buffer-create " *temp*" erase-buffer "\n" "spell" call-process-region t nil "-c" buffer-size 0 message "%s is correct" search-forward replace-match " " "%sincorrect" 1] 9 (#$ . 3171) "sSpell string: "]) (provide 'spell)