;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Wed May 26 23:16:41 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/ispell.el ;;; emacs version 19.8.0. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (defvar ispell-have-new-look t "\ T if default 'look' program has the -r flag.") (defvar ispell-enable-tex-parser nil "\ T to enable experimental tex parser in ispell for tex buffers.") (defvar ispell-process nil "\ The process running ISPELL") (defvar ispell-next-message nil "\ An integer telling where in the *ispell* buffer where to look for the next message from the ISPELL program.") (defvar ispell-bad-words nil "\ A list of markers corresponding to the output of the ISPELL :file command.") (byte-code "!!M" [boundp ispell-recently-accepted nil ispell-dump-needed ispell-flush-bad-words #[nil "@!@\"AÉ" [ispell-bad-words markerp set-marker nil ispell-recently-accepted] 4]] 2) (defalias 'kill-ispell #[nil "! " [ispell-process delete-process nil ispell-flush-bad-words] 2 "\ Kill the ispell process. Any changes the your private dictionay that have not already been dumped will be lost." nil]) (byte-code "##" [put ispell-startup-error error-conditions (ispell-startup-error error) error-message "Problem starting ispell - see buffer *ispell*"] 4) (defalias 'start-ispell #[nil "!! !)ȏ\n!\n!!\n!\n!qp!dZf=`\n!=R \"\n!dZ;ebp!@Uv@\"A@!)e\"*" [message "Starting ispell ..." get-buffer "*ispell*" buf kill-buffer err (byte-code "$" [start-process "ispell" "*ispell*" "-S" ispell-process] 5) ((file-error (byte-code "\"" [signal ispell-startup-error nil] 3))) process-kill-without-query ispell-process buffer-disable-undo process-buffer accept-process-output nil last-char bury-buffer 1 61 process-status run kill-ispell signal ispell-startup-error read greeting error "Bad ispell version: wanted 1, got %d" delete-region] 4 "\ Start an ispell subprocess; check the version; and display the greeting."]) (defalias 'ispell-sync #[(intr) " != !!qp!dZf=<!dZ)b)" [ispell-process process-status run start-ispell intr interrupt-process nil last-char process-buffer bury-buffer 1 61 accept-process-output] 3 "\ Make sure ispell is ready for a command."]) (defalias 'ispell-cmd #[(&rest strings) "! !qp! e) @\"A \" !!)" [ispell-sync t process-buffer ispell-process bury-buffer erase-buffer ispell-next-message strings process-send-string "\n" accept-process-output nil] 4 "\ Send a command to ispell. Choices are: WORD Check spelling of WORD. Result is nil not found t spelled ok list of strings near misses :file FILENAME scan the named file, and print the file offsets of any misspelled words :insert WORD put word in private dictonary :accept WORD don't complain about word any more this session :dump write out the current private dictionary, if necessary. :reload reread `~/ispell.words' :tex :troff :generic set type of parser to use when scanning whole files "]) (byte-code "MMM" [ispell-dump #[nil " !" [ispell-dump-needed nil ispell-cmd ":dump"] 2] ispell-insert #[(word) "\n\" \n Bʼn" [ispell-cmd ":insert " word ispell-bad-words ispell-recently-accepted t ispell-dump-needed] 3] ispell-accept #[(word) "\n\" \n B" [ispell-cmd ":accept " word ispell-bad-words ispell-recently-accepted] 3]] 2) (defalias 'ispell-next-message #[nil " !qp! b`!`\"`ebp!*" [process-buffer ispell-process bury-buffer ispell-next-message narrow-to-region forward-sexp 1 read] 4 "\ Return the next message sent by the ispell subprocess."]) (fset (quote ispell-tex-buffer-p) #[nil ">" [major-mode (plain-TeX-mode LaTeX-mode)] 2]) (defalias 'ispell #[(&optional buf start end) "\n  p !!* ! q  ώN! ed#a !a\"!a !v v!z!\n$!+! ȉ#$ $!\nU$\nW $\\\"#B#$#B##!+++@!+!! " [start 0 end buf get-buffer error "Can't find buffer" transient-mark-mode nil mark-active run-hooks deactivate-mark-hook buffer-file-name delete-temp filename ((byte-code " Ï" [delete-temp nil (delete-file filename) ((file-error))] 3)) 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-enable-tex-parser ispell-tex-buffer-p ispell-cmd ":tex" ":generic" ":file %s %d %d" "Parsing ispell output ..." ispell-flush-bad-words bad-words pos numberp ispell-next-message set-marker make-marker 1 nreverse ispell-bad-words markerp "No misspellings." "Ispell parsing done." ispell-next] 7 "\ 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 dictonary (kept in `$HOME/ispell.words'). a Accept. Accept this word for the rest of this editing session, but don't put it in your private dictonary. 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]." nil]) (defalias (quote ispell-buffer) (quote ispell)) (defalias 'ispell-next #[nil "Žč) " [nil ispell-window-configuration ((byte-code "!\n!I\n@!#!!I\n@=3!I\n@=C!I!ɇ" [ispell-window-configuration set-window-configuration ispell-bad-words error "Ispell has not yet been run." markerp message substitute-command-keys "Type \\[ispell-next] to continue." nil "No more misspellings (but checker was interrupted.)" t "Ispell done." "Bad ispell internal list"] 3)) quit (byte-code " @!$ !! \" A \")" [nil next markerp ispell-bad-words switch-to-buffer marker-buffer push-mark ispell-point "at saved position." set-marker] 3) ispell-dump] 2 "\ Resume command loop for most recent ispell command." nil]) (defalias 'ispell-word #[(&optional resume) " ď" [resume ispell-next err (byte-code "" [quit (byte-code " " [((byte-code "`\"" [ispell-point "at point."] 3)) ispell-dump] 1)] 2) ((ispell-startup-error (byte-code "!! # " [y-or-n-p "Problem starting ispell, use old-style spell instead? " load-library "spell" define-key esc-map "$" spell-word] 4)))] 3 "\ Check the spelling of the word under the cursor. See `ispell' for more information. With a prefix argument, resume handling of the previous Ispell command." "P"]) (define-key esc-map "$" (quote ispell-word)) (defalias 'ispell-region #[(start &optional end) "p \n#" [ispell start end] 4 "\ Check the spelling for all of the words in the region." "r"]) (byte-code "MMMMMMMMMMM" [ispell-letterp #[(c) "YXYXY" [c 65 90 97 122 128] 2] ispell-letter-or-quotep #[(c) "%YX%YX%U%Y" [c 65 90 97 122 39 128] 2] ispell-find-word-start #[nil "`f!o`Zf! `Zf!) !" [ispell-letterp 1 backward-char ispell-letter-or-quotep skip-chars-forward "'"] 3] ispell-find-word-end #[nil "`f! !" [ispell-letter-or-quotep forward-char skip-chars-backward "'"] 2] ispell-next-word #[nil "m?`f!? " [ispell-letterp forward-char] 2] ispell-point #[(start message) "  b   \nY\" \" \nW b `\" \"!\"!!  =b\" m :y  $ \") \" b `\"\"!q ) \"\n\" \"+" [make-marker nil end rescan wend start ispell-find-word-start point-marker ispell-find-word-end error "No word %s" message set-marker buffer-substring word ispell-still-bad format "Ispell checking %s" ispell-cmd ispell-next-message t "%s: ok" ispell-command-loop "unknown ispell response %s" ispell-next-word get-buffer "*ispell choices*" buf erase-buffer] 6] ispell-still-bad #[(word) " @\"= A\n +" [ispell-recently-accepted t case-fold-search ret words string-match word 0 nil] 4] ispell-show-choices #[(word message first-line) "  =!   !! 9͎!!Z!)q!e\"e\" ccc??WW\"\\8  ##c#GZ\")*\\p)c\\g)-" [selected-window selwin next-window resize get-buffer-create "*ispell choices*" buf nil w ispell-window-configuration 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 first-line "\n" "SPC skip; A accept; I insert; DIGIT select; R replace; L lookup; Q quit\n" message 0 i 3 j * n choice format "%d %s" str insert-char 32 20 1] 5] ispell-command-loop #[(word start end message) " QQ  \n#! !Y[X[Z 8[#Uj\"UvU!#U!U!U!#@#A)U!!!!* +" [t nil first-line rescan flag message "No near misses for '" word "'" "Near misses for '" ispell-show-choices "Ispell command: " undo-boundary downcase read-char replacement c 48 57 ispell-replace start end 113 throw quit 32 114 read-string "Replacement: " 105 ispell-insert 97 ispell-accept 108 ispell-do-look val 63 "Type 'C-h d ispell' to the emacs main loop for more help" sit-for 2 "Bad ispell command"] 6] ispell-do-look #[(bad-word) " !\"!\nqed\" 4\n &<\n %eb!`d\"ebedUf e`\" B e`\"K\n! \" !,B" [nil words buf regex ispell-have-new-look read-string "Lookup: " "Lookup (regex): " "^" get-buffer-create "*ispell look*" delete-region call-process "look" "-r" forward-line 10 end-of-line buffer-substring kill-buffer format "Lookup '%s'" reverse] 7] ispell-replace #[(start end new) "b c` \"" [start new delete-region end] 3]] 2) (defalias 'reload-ispell #[nil "!" [ispell-cmd ":reload"] 2 "\ Tell ispell to re-read your private dictionary." nil]) (byte-code "M!" [batch-make-ispell #[nil "!!  * !!ed#" [byte-compile-file "ispell.el" find-file "ispell.texinfo" default-directory "/tmp" old-dir texinfo-format-buffer Info-validate get-buffer " *problems in info file*" kill-emacs 1 write-region "ispell.info"] 4] provide ispell] 2)