;ELC ;;; Compiled by rms@psilocin.gnu.org on Thu Apr 30 02:48:15 1998 ;;; from file /gd/gnu/emacs/lisp/ispell4.el ;;; in Emacs version 20.2.92.9 ;;; with bytecomp version 2.41 ;;; 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 "`ispell4.el' was compiled for Emacs 19.29 or later")) (custom-declare-group 'ispell4 nil "Interface to GNU ISPELL version 4." :prefix "ispell-" :group 'applications) #@56 Non-nil means use the `-r' option when running `look'. (custom-declare-variable 'ispell-have-new-look 't '(#$ . 641) :type 'boolean :group 'ispell4) #@73 Non-nil enables experimental TeX parser in Ispell for TeX-mode buffers. (defvar ispell-enable-tex-parser nil (#$ . 796)) #@28 The process running Ispell (defvar ispell-process nil (#$ . 923)) #@74 An integer: where in `*ispell*' buffer to find next message from Ispell. (defvar ispell-next-message nil (#$ . 995)) #@29 Command for running Ispell. (custom-declare-variable 'ispell-command '"ispell" '(#$ . 1118) :type 'string :group 'ispell4) #@236 *String (or list of strings) to pass to Ispell as command arguments. You can specify your private dictionary via the -p option. The -S option is always passed to Ispell as the last parameter, and need not be mentioned here. (custom-declare-variable 'ispell-command-options 'nil '(#$ . -1248) :type '(repeat string) :group 'ispell4) #@28 *Command for running look. (custom-declare-variable 'ispell-look-command '"look" '(#$ . -1597) :type 'string :group 'ispell4) #@72 A list of markers reflecting the output of the Ispell `:file' command. (defvar ispell-bad-words nil (#$ . 1729)) (byte-code "\304\300!\204\305\300 B\304\302!\204\305\302 B\304\303!\204 \305\303 B\305\207" [ispell-recently-accepted current-load-list ispell-window-configuration ispell-dump-needed boundp nil] 2) (defalias 'ispell-flush-bad-words #[nil "\203\302@!\203@\303\211\223\210A\211\204\303\211\207" [ispell-bad-words ispell-recently-accepted markerp nil] 4]) #@113 Kill the Ispell process. Any changes in your private dictionary that have not already been dumped will be lost. (defalias 'kill-ispell #[nil "\203\301!\210\302\303 \207" [ispell-process delete-process nil ispell-flush-bad-words] 2 (#$ . 2225) nil]) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put ispell-startup-error error-conditions (ispell-startup-error error) error-message "Problem starting ispell - see buffer *ispell*"] 4) (defalias 'start-ispell #[nil "\304\305!\210\306\307!\211\203\310!\210)\311\312\313\217\210\314 !\210\315\316 !!\210\317 !\210\320\212\316 !q\210\321p!\210dS\211f\322=\204U\323 !\324=\204J\325 \210\326\327\320\"\210\317 !\210dS\211\2024eb\210\330p!\211@\331U\204i\332\333@\"\210\304\334A@\"\210)e\n|*\207" [buf ispell-process last-char greeting message "Starting ispell ..." get-buffer "*ispell*" kill-buffer err (byte-code "\303\304\305\306\307 <\203 \202 C\310\"%\303\207" [ispell-command ispell-command-options ispell-process apply start-process "ispell" "*ispell*" append ("-S")] 8) ((file-error (byte-code "\300\301\302\"\207" [signal ispell-startup-error nil] 3))) process-kill-without-query buffer-disable-undo process-buffer accept-process-output nil bury-buffer 61 process-status run kill-ispell signal ispell-startup-error read 1 error "Bad ispell version: wanted 1, got %d" "%s"] 4]) (defalias 'ispell-sync #[(intr) "\203\f\303!\304=\204\305 \210 \203\306!\210\307\310!q\210\311p!\210dS\211f\312=\2047\313!\210dS\211\202&\nb)\207" [ispell-process intr last-char process-status run start-ispell interrupt-process nil process-buffer bury-buffer 61 accept-process-output] 3]) (defalias 'ispell-cmd #[(&rest strings) "\212\303\304!\210\305!q\210\306p!\210\307 \210e\n\203$\310\n@\"\210\nA\211\204\310\311\"\210\312!\210\303\313!)\207" [ispell-process ispell-next-message strings ispell-sync t process-buffer bury-buffer erase-buffer process-send-string "\n" accept-process-output nil] 4]) (defalias 'ispell-dump #[nil "\205 \301\302\303!\207" [ispell-dump-needed nil ispell-cmd ":dump"] 2]) (defalias 'ispell-insert #[(word) "\304\305\"\210 \203 \nB\306\211\207" [word ispell-bad-words ispell-recently-accepted ispell-dump-needed ispell-cmd ":insert " t] 3]) (defalias 'ispell-accept #[(word) "\303\304\"\210 \205\nB\211\207" [word ispell-bad-words ispell-recently-accepted ispell-cmd ":accept "] 3]) (defalias 'ispell-next-message #[nil "\212\302!q\210\303p!\210\214 b\210`\304\305!\210`}\210`eb\210\306p!*\207" [ispell-process ispell-next-message process-buffer bury-buffer forward-sexp 1 read] 3]) (defalias 'ispell-tex-buffer-p #[nil "\301>\207" [major-mode (plain-tex-mode latex-mode slitex-mode)] 2]) (byte-code "\302\300!\204\n\303\304!\300 B\305\300\"\210\306\307\310#\210\306\311\312#\210\306\313\314#\210\306\315\316#\210\306\317\320#\210\306\321\322#\210\306\323\324#\210\306\325\326#\207" [ispell-menu-map current-load-list boundp make-sparse-keymap "Spell" defalias define-key [ispell-complete-word-interior-frag] ("Complete Interior Fragment" . ispell-complete-word-interior-frag) [ispell-complete-word] ("Complete Word" . ispell-complete-word) [reload-ispell] ("Reload Dictionary" . reload-ispell) [ispell-next] ("Continue Check" . ispell-next) [ispell-message] ("Check Message" . ispell-message) [ispell-word] ("Check Word" . ispell-word) [ispell-region] ("Check Region" . ispell-region) [ispell-buffer] ("Check Buffer" . ispell)] 4) #@902 Run Ispell over current buffer's visited file. First the file is scanned for misspelled words, then Ispell enters a loop with the following commands for every misspelled word: DIGIT Near miss selector. If the misspelled word is close to some words in the dictionary, they are offered as near misses. r Replace. Replace the word with a string you type. Each word of your new string is also checked. i Insert. Insert this word in your private dictionary (by default, `$HOME/ispell.words'). a Accept. Accept this word for the rest of this editing session, but don't put it in your private dictionary. l Lookup. Look for a word in the dictionary by fast binary search, or search for a regular expression in the dictionary using grep. SPACE Accept the word this time, but complain if it is seen again. q, \[keyboard-quit] Leave the command loop. You can come back later with \[ispell-next]. (defalias 'ispell #[(&optional buf start end) "\204\306 \204\f\306\n\204p\307\n!\211\204\310\311!\210\203(\312\313\314!\210\212\nq\210 \312'(\315\216(\203@\316 \312\"\203R\317\320!(\321'\322ed(#\210\202e\323\n!\203e\324\325\326(\"!\203e\327 \210\330\331!\210)\203z\332 \203z\333\334!\210\202~\333\335!\210\333\325\336( $!\210+\330\337!\210\340 \210\312\211*+\341 \211+\247\203\273 \306U\204\254+ W\203\226\342 +T\312\223*B*\202\226+*B\211*\237,+\343,@!\204\330\312,\330\344!\210\321\207\330\345!\210\346 \207" [start end buf transient-mark-mode mark-active buffer-file-name 0 get-buffer error "Can't find buffer" nil run-hooks deactivate-mark-hook ((byte-code "\203 \301\302\303\217\210\301\207" [delete-temp nil (delete-file filename) ((file-error))] 3)) find-file-name-handler make-temp-name "/usr/tmp/ispell" t write-region buffer-modified-p y-or-n-p format "Save file %s? " save-buffer message "Ispell scanning file..." ispell-tex-buffer-p ispell-cmd ":tex" ":generic" ":file %s %d %d" "Parsing ispell output ..." ispell-flush-bad-words ispell-next-message make-marker markerp "No misspellings." "Ispell parsing done." ispell-next delete-temp filename ispell-enable-tex-parser bad-words pos ispell-bad-words] 7 (#$ . 5709) nil]) (defalias 'ispell-buffer 'ispell) #@105 Resume command loop for most recent Ispell command. Return value is t unless exit is due to typing `q'. (defalias 'ispell-next #[nil "\301\302\216\303\304\215)\305 \210\207" [ispell-window-configuration nil ((byte-code "\302 \210\203\303!\210 \204\304\305!\210\202M\306 @!\203'\307\310\311\312!\"\210\202M @\313=\2037\313\307\314!\210\202M @\315=\203G\313\307\316!\210\202M\313\307\317!\210\313\207" [ispell-window-configuration ispell-bad-words ispell-dehighlight set-window-configuration error "Ispell has not yet been run" markerp message "%s" substitute-command-keys "Type \\[ispell-next] to continue" nil "No more misspellings (but checker was interrupted)" t "Ispell done" "Bad ispell internal list"] 4)) ispell-quit (byte-code "\302\303 @\211!\203$\304\305!!\210\306 \210\307\310\"\210 A\302\211\223\210\202)\311\207" [next ispell-bad-words nil markerp switch-to-buffer marker-buffer push-mark ispell-point "at saved position." t] 3) ispell-dump] 2 (#$ . 7937) nil]) #@169 Check the spelling of the word under the cursor. See the command `ispell' for more information. With a prefix argument, resume handling of the previous Ispell command. (defalias 'ispell-word #[(&optional resume) "\203\301 \207\302\303\304\217\207" [resume ispell-next err (byte-code "\300\216\301\302\215)\207" [((ispell-dehighlight)) ispell-quit (byte-code "\300\213\210\301 \207" [((byte-code "\300`\301\"\207" [ispell-point "at point."] 3)) ispell-dump] 1)] 2) ((ispell-startup-error (byte-code "\301\302!\205\303\304!\210\305\306\307#\210\307 \207" [esc-map y-or-n-p "Problem starting ispell, use old-style spell instead? " load-library "spell" define-key "$" spell-word] 4)))] 3 (#$ . 8944) "P"]) #@56 Check the spelling for all of the words in the region. (defalias 'ispell-region #[(start &optional end) "\302p #\207" [start end ispell] 4 (#$ . 9658) "r"]) (defalias 'ispell-letterp #[(c) "\205\301Y\203\302X\206\303Y\203\304X\206\305Y\207" [c 65 90 97 122 128] 2]) (defalias 'ispell-letter-or-quotep #[(c) "\205%\301Y\203\302X\206%\303Y\203\304X\206%\305U\206%\306Y\207" [c 65 90 97 122 39 128] 2]) (defalias 'ispell-find-word-start #[nil "\300`f!\204o\204\300`Sf!\204\301 \210\202\302`Sf!\203'\301 \210\202\303\304w\207" [ispell-letterp backward-char ispell-letter-or-quotep "'" nil] 2]) (defalias 'ispell-find-word-end #[nil "\300`f!\203 \301u\210\202\302\301x\207" [ispell-letter-or-quotep nil "'"] 2]) (defalias 'ispell-next-word #[nil "m?\205\300`f!?\205\301u\210\202\207" [ispell-letterp nil] 2]) (defalias 'ispell-point #[(start message) "\306 \307\211b\210\310 \210\311 \312 \210\311 W\203~W\203~b\210\312 \210\n`\307\223\210\307\n{\313\f!\203l\305\314\f\"\210\315\f!\210\316 \211\317=\203S\305\320\f\"\210\202k \203\\ :\203f\321\f\n $\202k\322\323 \"\210) \204\nb\210\324 \210`\307\223\210\202\325\326!\211\203\216q\210\327 \210)\307\211\223\210\307\211\223\210\n\307\211\223+\207" [end rescan wend start word message make-marker nil ispell-find-word-start point-marker ispell-find-word-end ispell-still-bad "Ispell checking %s" ispell-cmd ispell-next-message t "%s: ok" ispell-command-loop error "unknown ispell response %s" ispell-next-word get-buffer "*ispell choices*" erase-buffer buf] 6]) (defalias 'ispell-still-bad #[(word) "\305\211\211\203\306@\f\"\307=\203\310\310A\211\204\n\n+\207" [ispell-recently-accepted case-fold-search ret words word t string-match 0 nil] 4]) (defalias 'ispell-show-choices #[(word message first-line) "\306 \211\307 =\310\311!\312\f\204\313 \314\n!\315\n!\210 \2030\316\216\317!\210\320\321\322!Z!\210)\212\nq\210\323\n!\210\324e\"\210\325e\"\210\326 \210 \327\261\210\330c\210 ??\205\247\331!\331\332W\205\246\331\"\331\332W\203\231\"\332_!\\\211# 8\211$\203\217\333\334#$#\211%c\210\335\336\337%GZ\"\210)*\"T\211\"\202a)\327c\210!T\211!\202X)-\207" [selwin resize buf w ispell-window-configuration first-line selected-window next-window get-buffer-create "*ispell choices*" nil current-window-configuration display-buffer buffer-disable-undo ((select-window selwin)) select-window enlarge-window 6 window-height bury-buffer set-window-point set-window-start erase-buffer "\n" "SPC skip; A accept; I insert; DIGIT select; R replace; L lookup; Q quit\n" 0 3 format "%d %s" insert-char 32 20 message i j n choice str] 5]) (defalias 'ispell-command-loop #[(word start end message) "\306\307\211\204\310\f\311Q\202\312\f\311Q\313 (\"\210\n\203\363\314\f#\210\303\315!\210\316 \210\317 \227\307)\211*\320Y\203\\*\321X\203\\*\320Z8\211)\203\\\322 ()#\210\307\202\357*\323U\203k\324\325\307\"\210\202\357*\326\327 8U\203{\330 \210\202\357*\331U\203\207\307\202\357*\332U\203\236\322 (\333\334!#\210\306\307\202\357*\335U\203\256\336\f!\210\307\202\357*\337U\203\276\340\f!\210\307\202\357*\341U\203\325\342\f!\211+@+A)\202\357*\343U\203\347\303\344!\210\345\346!\210\202\357\303\347!\210\345\346!\210*\202 +\207" [first-line rescan flag message word start t nil "No near misses for '" "'" "Near misses for '" ispell-highlight ispell-show-choices "Ispell command: " undo-boundary read-char 48 57 ispell-replace 113 throw ispell-quit 3 current-input-mode keyboard-quit 32 114 read-string "Replacement: " 105 ispell-insert 97 ispell-accept 108 ispell-do-look 63 "Type 'C-h d ispell' to the emacs main loop for more help" sit-for 2 "Bad ispell command" end replacement c val] 6]) (defalias 'ispell-do-look #[(bad-word) "\305\211\211\204\306\307!\202\306\310\311\"\312\313!\212 q\210ed|\210\2033\314\f\305 \305\315\n&\210\202;\314\f\305 \305\n%\210eb\210\316y\210`d|\210eb\210edU\204a\305\210e`{B\305y\210e`|\210\202H\317 !\210\320\321\n\"\322!,B\207" [words buf regex ispell-have-new-look ispell-look-command nil read-string "Lookup: " "Lookup (regex): " "^" get-buffer-create "*ispell look*" call-process "-r" 10 kill-buffer format "Lookup '%s'" reverse] 7]) (defalias 'ispell-replace #[(start end new) "b\210 c\210`\n|\207" [start new end] 2]) #@49 Tell Ispell to re-read your private dictionary. (defalias 'reload-ispell #[nil "\300\301!\207" [ispell-cmd ":reload"] 2 (#$ . 14071) nil]) (defalias 'batch-make-ispell #[nil "\302\303!\210\304\305!\210\306\307 \210*\310 \210\311\312!\203\313\314!\210\315ed\316#\207" [default-directory old-dir byte-compile-file "ispell.el" find-file "ispell.texinfo" "/tmp" texinfo-format-buffer Info-validate get-buffer " *problems in info file*" kill-emacs 1 write-region "ispell.info"] 4]) #@43 *Non-nil means to highlight ispell words. (custom-declare-variable 'ispell-highlight 't '(#$ . -14559) :type 'boolean :group 'ispell4) (byte-code "\302\300!\204\303\300 B\303\207" [ispell-overlay current-load-list boundp nil] 2) (defalias 'ispell-dehighlight #[nil "\205\301!\210\302\211\207" [ispell-overlay delete-overlay nil] 2]) (defalias 'ispell-highlight #[(start end) "\205' \205'\n\204!\305\f\"\306\n\307\310\311!\203\311\202\312#\210\313\n\fp$\207" [ispell-highlight window-system ispell-overlay start end make-overlay overlay-put face internal-find-face ispell region move-overlay] 5]) #@186 *If non-nil then spelling dictionary as string for `ispell-complete-word'. Overrides default dictionary file such as "/usr/dict/words" or GNU look's "${prefix}/lib/ispell/ispell.words" (custom-declare-variable 'ispell-look-dictionary 'nil '(#$ . -15182) :type '(choice (const nil) file) :group 'ispell4) #@442 *t if GNU look -r can give different results with and without trailing `.*'. Example: `look -dfr "^ya" foo' returns nothing, while `look -dfr "^ya.*" foo' returns `yacc', where `foo' is a dictionary file containing the three lines y y's yacc Both commands should return `yacc'. If `ispell-complete-word' erroneously states that no completions exist for a string, then setting this variable to t will help find those completions. (custom-declare-variable 'ispell-gnu-look-still-broken-p 'nil '(#$ . -15493) :type 'boolean :group 'ispell4) (byte-code "\305\300!\204\306\300 B\305\302!\204\306\302 B\305\303!\204 \306\303 B\307\303!\210\310\303\311\312#\210\305\304!\2046\306\304 B\307\304!\210\310\304\311\312#\207" [ispell-lookup-completions-alist current-load-list ispell-lookup-last-word ispell-lookup-last-interior-p ispell-lookup-last-bow boundp nil make-variable-buffer-local put permanent-local t] 4) #@296 Complete word using letters at point to word beginning using `look'. With optional argument INTERIOR-FRAG, word fragment at point is assumed to be an interior word fragment in which case `ispell-have-new-look' should be t. See also `ispell-look-dictionary' and `ispell-gnu-look-still-broken-p'. (defalias 'ispell-complete-word #[(&optional interior-frag) "\203\f \204\f\306\307!\210\310\212\311\312x\210`)\211`{\203%\313\f\314Q\202-\315\f \205,\314Q#\2037\316\2028\f$%\205C&\232'\206[(?\206[\310)\317\315(P\f\")?*\312+\f\316\230\203\201(\320P\212\321v\210`)`{\230\203}\306\322!\210\202\201\306\323!\210'\204\222*\203\222\324\f#\",\325$,\"+\f(%&+\310=\203\263\320c\210\326\327!\202 +\204\302\326\330\f\"\210\331 \202 +\316\230\204\352\310)\317\315+\332Q\f\")\204\352\333\f\"\210\334+\312\310#\210\326\335!\202 \326\336!\210+\316\230\203\371`|\210\337$,\"-\340\220\341-!\221\210)\326\342!.\207" [interior-frag ispell-have-new-look completion-ignore-case bow string ispell-gnu-look-still-broken-p error "Sorry, `ispell-have-new-look' is nil. You also will need GNU Ispell's `look'." t "a-zA-Z'" nil "^.*" ".*" "^" "" string-match " " -1 "Perfect match already" "No word fragment at point" ispell-lookup-build-list try-completion message "Perfect match." "Can't find completion for \"%s\"" beep "$" search-backward replace-match "Proposed unique substring. Repeat for completions list." "Making completion list..." all-completions "*Completions*" display-completion-list "Making completion list...done" regexp prefix ispell-lookup-last-interior-p ispell-lookup-last-bow continuing-an-interior-frag-p ispell-lookup-last-word case-fold-search new-unique-string-p completion ispell-lookup-completions-alist list] 5 (#$ . 16432) "P"]) #@200 Runs `ispell-complete-word' with a non-nil INTERIOR-FRAG. A completion list is built for word fragment at point which is assumed to be an interior word fragment. `ispell-have-new-look' should be t. (defalias 'ispell-complete-word-interior-frag #[nil "\300\301!\207" [ispell-complete-word t] 2 (#$ . 18236) nil]) (defalias 'ispell-lookup-build-list #[(string regexp) "\212\306\307!\210\310\311!q\210\312 \210;\2032 \203$\313\n\314\315\314\316&\210\202M\313\n\314\315\314\317\f&\210\202M \203C\313\n\314\315\314\316&\210\202M\313\n\314\315\314\317\f&\210\314eb\210edU\204k\314\210e`{ B\314y\210e`|\210\202R\312 \210\306\320!\210\321\305 \237\"*\207" [ispell-look-dictionary ispell-have-new-look ispell-look-command regexp string list message "Building list..." get-buffer-create " *ispell look*" erase-buffer call-process nil t "-fr" "-f" "Building list...done" mapcar] 8]) (defalias 'ispell-non-empty-string #[(string) "\203\n\301\230\203\f\302\207\303!\207" [string "" "\\'\\`" regexp-quote] 2]) #@73 *Regular expression to match lines cited from one message into another. (custom-declare-variable 'ispell-message-cite-regexp '"^ \\|^ " '(#$ . -19264) :type 'regexp :group 'ispell4) #@195 *End of text which will be checked in ispell-message. If it is a string, limit at first occurrence of that regular expression. Otherwise, it must be a function which is called to get the limit. (custom-declare-variable 'ispell-message-text-end '(concat "^\$" (mapconcat #'identity '("%!PS-Adobe-2.0" "begin [0-9][0-9][0-9] .*\nM.*\nM.*\nM" "#! /bin/sh" "diff -c .*\n\\*\\*\\* .*\n--- " "[-=]+\\s cut here") "\\|") "\$") '(#$ . -19455) :type '(choice string function) :group 'ispell4) #@68 *Ispell-message will check no more than this number of characters. (custom-declare-variable 'ispell-message-limit '(* 100 80) '(#$ . -19947) :type 'integer :group 'ispell4) #@449 Check the spelling of a mail message or news post. Don't check spelling of message headers (except subject) or included messages. To spell-check whenever a message is sent, include this line in .emacs: (setq news-inews-hook (setq mail-send-hook 'ispell-message)) Or you can bind the function to C-c i in gnus or mail with: (setq mail-mode-hook (setq news-reply-mode-hook (function (lambda () (local-set-key "\C-ci" 'ispell-message))))) (defalias 'ispell-message #[nil "\212\306\306\307 \210\310y\210\311\312!\313\314!\203$\315\304 \316\317\320!\260\202\203\313\321!\2036\315\f\316\317\320!\260\202\203\n\203>\322\202\203 \323\232\203X\324\317%\203R\320%!\202T&Q\202\203\325\326!\203h\327\317\320!Q\202\203\325\330!\203u\320!\202\203%\203\201\320%!\202\203&'\331(e)\\d^\212*\204\230d\202\264\332*!\203\261\333*\306\334#\203\255\335\224\202\264d\202\264* )^\211+'G\\,\212\331`-eb\210\333\336-\331#\203\355\311\337!\204\355\340`S\306\210\311\341!\203\351\342\210\202\335`\"(+`+W\205D(\205D\311\343'P!\203`+W\203\310y\210\202\372`+W\203\356`.\333\344'\316Q,\334#\203*\335y\210`+V\2035+b\210 \212\340.S`\"(+\202\356.\207" [case-fold-search old-case-fold-search non-internal-message sc-reference-tag-string sc-cite-regexp major-mode nil rfc822-goto-eoh 1 looking-at "" featurep supercite "\$" "\$" "\\|" ispell-non-empty-string sc "In [a-zA-Z.]+ you write:\\|In <[^,;&+=]+> [^,;&+=]+ writes:\\| *> *" news-reply-mode "In article <" boundp vm-included-text-prefix "[^,;&+=]+ writes:" mh-ins-buf-prefix t char-or-string-p re-search-forward end 0 "^Subject:[ ]*" "re\\>" ispell-region "\n[ ]" 2 "^[ ]*$\\|" "^\\(" mail-yank-prefix ispell-message-cite-regexp cite-regexp continue ispell-message-limit ispell-message-text-end limit search-limit message-begin start] 7 (#$ . 20127) nil]) (provide 'ispell)