Current File : //usr/local/share/emacs/27.2/lisp/textmodes/ispell.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305%\210\306\307\310\"\210\311\312\313\314\315DD\316\317\320\304\301&\210\311\321\313\314\322DD\323\317\324\304\325\304\301\326\327& \210\311\330\313\314\331DD\332\317\333\304\301&\210\311\334\313\314\335DD\336\317\337\304\301&\210\340\334\341\342#\210\311\343\313\314\344DD\345\317\324\304\301&\210\311\346\313\314\347DD\350\317\324\304\301&\207" [custom-declare-group ispell nil "User variables for Emacs ispell interface." :group applications defalias check-ispell-version ispell-check-version custom-declare-variable ispell-highlight-p funcall function #[0 "\300\207" [block] 1] "Highlight spelling errors when non-nil.\nWhen set to `block', assumes a block cursor with TTY displays." :type (choice (const block) (const :tag "off" nil) (const :tag "on" t)) ispell-lazy-highlight #[0 "\300\301!\207" [boundp lazy-highlight-cleanup] 2] "Controls the lazy-highlighting of spelling errors.\nWhen non-nil, all text in the buffer matching the current spelling\nerror is highlighted lazily using isearch lazy highlighting (see\n`lazy-highlight-initial-delay' and `lazy-highlight-interval')." boolean lazy-highlight :version "22.1" ispell-highlight-face #[0 "\203 \301\207\302\207" [ispell-lazy-highlight isearch highlight] 1] "Face used for Ispell highlighting.\nThis variable can be set by the user to whatever face they desire.\nIt's most convenient if the cursor color and highlight color are\nslightly different." face ispell-check-comments #[0 "\300\207" [t] 1] "Spelling of comments checked when non-nil.\nWhen set to `exclusive', ONLY comments are checked. (For code comments).\nWarning! Not checking comments, when a comment start is embedded in strings,\nmay produce undesired results." (choice (const exclusive) (const :tag "off" nil) (const :tag "on" t)) put safe-local-variable #[257 "\211\300>\207" [(nil t exclusive)] 3 "\n\n(fn A)"] ispell-query-replace-choices #[0 "\300\207" [nil] 1] "Corrections made throughout region when non-nil.\nUses `query-replace' (\\[query-replace]) for corrections." ispell-skip-tib #[0 "\300\207" [nil] 1] "Does not spell check `tib' bibliography references when non-nil.\nSkips any text between strings matching regular expressions\n`ispell-tib-ref-beginning' and `ispell-tib-ref-end'.\n\nTeX users beware: Any text between [. and .] will be skipped -- even if\nthat's your whole buffer -- unless you set `ispell-skip-tib' to nil.\nThat includes the [.5mm] type of number..."] 12)
#@51 Regexp matching the beginning of a Tib reference.
(defvar ispell-tib-ref-beginning "[[<]\\." (#$ . 2875))
#@45 Regexp matching the end of a Tib reference.
(defvar ispell-tib-ref-end "\\.[]>]" (#$ . 2987))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\315\310\311&\210\300\316\302\303\317DD\320\306\321\322\323\310\311& \210\300\324\302\303\325DD\326\306\327\310\311&\210\300\330\302\303\331DD\332\306\333\310\311&\210\300\334\302\303\335DD\336\306\337\310\311&\210\300\340\302\303\341DD\342\306\343\310\311&\210\300\344\302\303\345DD\346\306\321\310\311&\210\300\347\302\303\350DD\351\306\321\310\311&\210\300\352\302\303\353DD\354\306\355\310\311&\210\300\356\302\303\357DD\360\306\307\310\311&\210\300\361\302\303\362DD\363\306\307\310\311&\210\300\364\302\303\365DD\366\306\321\310\311&\210\300\367\302\303\370DD\371\306\307\310\311&\210\300\372\302\303\373DD\374\306\307\310\311&\210\300\375\302\303\376DD\377\306\201@ \310\311&\210\300\201A \302\303\201B DD\201C \306\307\310\311&\210\201D \201E \201F \"\210\300\201F \302\303\201G DD\201H \306\303\310\311&\210\300\201I \302\303\201J DD\201K \306\307\310\311&\210\300\201L \302\303\201M DD\201N \306\201O \310\311&\210\300\201P \302\303\201Q DD\201R \306\307\310\311&\207" [custom-declare-variable ispell-keep-choices-win funcall function #[0 "\300\207" [t] 1] "If non-nil, keep the `*Choices*' window for the entire spelling session.\nThis minimizes redisplay thrashing." :type boolean :group ispell ispell-choices-win-default-height #[0 "\300\207" [2] 1] "The default size of the `*Choices*' window, including the mode line.\nMust be greater than 1." integer ispell-program-name #[0 "\300\301!\206 \300\302!\206 \300\303!\206 \302\207" [executable-find "aspell" "ispell" "hunspell"] 2] "Program invoked by \\[ispell-word] and \\[ispell-region] commands." string :set #[514 "\300\"\210\301\302!\205
\303 \207" [set-default featurep ispell ispell-set-spellchecker-params] 5 "\n\n(fn SYMBOL VALUE)"] ispell-alternate-dictionary #[0 "\300\301!\203 \301\207\300\302!\203 \302\207\300\303!\203 \303\207\300\304!\203 \304\207\300\305!\203( \305\207\300\306!\2030 \306\207\300\307!\2057 \307\207" [file-readable-p "/usr/dict/web2" "/usr/share/dict/web2" "/usr/dict/words" "/usr/lib/dict/words" "/usr/share/dict/words" "/usr/share/lib/dict/words" "/sys/dict"] 2] "Alternate plain word-list dictionary for spelling help." (choice file (const :tag "None" nil)) ispell-complete-word-dict #[0 "\300\207" [nil] 1] "Plain word-list dictionary used for word completion if\ndifferent from `ispell-alternate-dictionary'." (choice file (const :tag "None" nil)) ispell-message-dictionary-alist #[0 "\300\207" [nil] 1] "List used by `ispell-message' to select a new dictionary.\nIt consists of pairs (REGEXP . DICTIONARY). If REGEXP is found\nin the message headers, `ispell-local-dictionary' will be set to\nDICTIONARY if `ispell-local-dictionary' is not buffer-local.\nE.g. you may use the following value:\n ((\"^Newsgroups:[ \\t]*de\\\\.\" . \"deutsch8\")\n (\"^To:[^\\n,]+\\\\.de[ \\t\\n,>]\" . \"deutsch8\"))" (repeat (cons regexp string)) ispell-message-fcc-skip #[0 "\300\207" [50000] 1] "Query before saving Fcc message copy if attachment larger than this value.\nAlways stores Fcc copy of message when nil." (choice integer (const :tag "off" nil)) ispell-grep-command #[0 "\300\207" [#1="grep"] 1 #1#] "Name of the grep command for search processes." ispell-grep-options #[0 "\300\207" [#2="-Ei"] 1 #2#] "String of options to use when running the program in `ispell-grep-command'.\nShould probably be \"-Ei\"." ispell-look-command #[0 "\300\301!\203 \301\207\300\302!\203 \302\207\300\303!\203 \303\207\304\207" [file-exists-p "/bin/look" "/usr/local/bin/look" "/usr/bin/look" "look"] 2] "Name of the look command for search processes.\nThis must be an absolute file name." file ispell-look-p #[0 "\301!\207" [ispell-look-command file-exists-p] 2] "Non-nil means use `look' rather than `grep'.\nDefault is based on whether `look' seems to be available." ispell-have-new-look #[0 "\300\207" [nil] 1] "Non-nil means use the `-r' option (regexp) when running `look'." ispell-look-options #[0 "\203 \301\207\302\207" [ispell-have-new-look "-dfr" "-df"] 1] "String of command options for `ispell-look-command'." ispell-use-ptys-p #[0 "\300\207" [nil] 1] "When non-nil, Emacs uses ptys to communicate with Ispell.\nWhen nil, Emacs uses pipes." ispell-following-word #[0 "\300\207" [nil] 1] "Non-nil means `ispell-word' checks the word around or after point.\nOtherwise `ispell-word' checks the preceding word." ispell-help-in-bufferp #[0 "\300\207" [nil] 1] "Non-nil means display interactive keymap help in a buffer.\nThe following values are supported:\n nil Expand the minibuffer and display a short help message\n there for a couple of seconds.\n t Pop up a new buffer and display a short help message there\n for a couple of seconds.\n electric Pop up a new buffer and display a long help message there.\n User can browse and then exit the help mode." (choice (const electric) (const :tag "off" nil) (const :tag "on" t)) ispell-quietly #[0 "\300\207" [nil] 1] "Non-nil means suppress messages in `ispell-word'." defvaralias ispell-format-word ispell-format-word-function #[0 "\300\207" [upcase] 1] "Formatting function for displaying word being spell checked.\nThe function must take one string argument and return a string." ispell-use-framepop-p #[0 "\300\207" [nil] 1] "When non-nil ispell uses framepop to display choices in a dedicated frame.\nYou can set this variable to dynamically use framepop if you are in a\nwindow system by evaluating the following on startup to set this variable:\n (and (display-graphic-p) (require \\='framepop nil t))" ispell-personal-dictionary #[0 "\300\207" [nil] 1] "File name of your personal spelling dictionary, or nil.\nIf nil, the default personal dictionary for your spelling checker is used." (choice file (const :tag "default" nil)) ispell-silently-savep #[0 "\300\207" [nil] 1] "When non-nil, save personal dictionary without asking for confirmation."] 10)
#@76 Non-nil means the user has explicitly set this buffer's Ispell dictionary.
(defvar ispell-local-dictionary-overridden nil (#$ . 9076))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\314\303\315\316#\210\300\303!\210\302\317\304\305\320DD\321\310\322\312\313&\210\302\323\304\305\324DD\325\310\326\312\313&\210\302\327\304\305\330DD\331\310\332\312\313&\210\300\327!\210\302\333\304\305\334DD\335\310\336\312\313&\207" [make-variable-buffer-local ispell-local-dictionary-overridden custom-declare-variable ispell-local-dictionary funcall function #[0 "\300\207" [nil] 1] "If non-nil, the dictionary to be used for Ispell commands in this buffer.\nThe value must be a string dictionary name,\nor nil, which means use the global setting in `ispell-dictionary'.\nDictionary names are defined in `ispell-local-dictionary-alist'\nand `ispell-dictionary-alist'.\n\nSetting `ispell-local-dictionary' to a value has the same effect as\ncalling \\[ispell-change-dictionary] with that value. This variable\nis automatically set when defined in the file with either\n`ispell-dictionary-keyword' or the Local Variable syntax." :type (choice string (const :tag "default" nil)) :group ispell put safe-local-variable string-or-null-p ispell-dictionary #[0 "\300\207" [nil] 1] "Default dictionary to use if `ispell-local-dictionary' is nil." (choice string (const :tag "default" nil)) ispell-extra-args #[0 "\300\207" [nil] 1] "If non-nil, a list of extra switches to pass to the Ispell program.\nFor example, (\"-W\" \"3\") to cause it to accept all 1-3 character\nwords as correct. See also `ispell-dictionary-alist', which may be used\nfor language-specific arguments." (repeat string) ispell-skip-html #[0 "\300\207" [use-mode-name] 1] "Indicates whether ispell should skip spell checking of SGML markup.\nIf t, always skip SGML markup; if nil, never skip; if non-t and non-nil,\nguess whether SGML markup should be skipped according to the name of the\nbuffer's major mode.\n\nSGML markup is any text inside the brackets \"<>\" or entities\nsuch as \"&\". See `ispell-html-skip-alists' for more details.\n\nThis variable affects spell-checking of HTML, XML, and SGML files." (choice (const :tag "always" t) (const :tag "never" nil) (const :tag "use-mode-name" use-mode-name)) ispell-local-dictionary-alist #[0 "\300\207" [nil] 1] "List of local or customized dictionary definitions.\nThese can override the values in `ispell-dictionary-alist'.\n\nTo make permanent changes to your dictionary definitions, you\nwill need to make your changes in this variable, save, and then\nre-start Emacs." (repeat (list (choice :tag "Dictionary" (string :tag "Dictionary name") (const :tag "default" nil)) (regexp :tag "Case characters") (regexp :tag "Non case characters") (regexp :tag "Other characters") (boolean :tag "Many other characters") (repeat :tag "Ispell command line args" (string :tag "Arg")) (choice :tag "Extended character mode" (const "~tex") (const "~plaintex") (const "~nroff") (const "~list") (const "~latin1") (const "~latin3") (const :tag "default" nil)) (coding-system :tag "Coding System")))] 8)
#@43 Base value for `ispell-dictionary-alist'.
(defvar ispell-dictionary-base-alist '((nil "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("american" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("brasileiro" "[A-Z\301\311\315\323\332\300\310\314\322\331\303\325\307\334\302\312\324a-z\341\351\355\363\372\340\350\354\362\371\343\365\347\374\342\352\364]" "[^A-Z\301\311\315\323\332\300\310\314\322\331\303\325\307\334\302\312\324a-z\341\351\355\363\372\340\350\354\362\371\343\365\347\374\342\352\364]" "[']" nil nil nil iso-8859-1) ("british" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("castellano" "[A-Z\301\311\315\321\323\332\334a-z\341\351\355\361\363\372\374]" "[^A-Z\301\311\315\321\323\332\334a-z\341\351\355\361\363\372\374]" "[-]" nil ("-B") "~tex" iso-8859-1) ("castellano8" "[A-Z\301\311\315\321\323\332\334a-z\341\351\355\361\363\372\374]" "[^A-Z\301\311\315\321\323\332\334a-z\341\351\355\361\363\372\374]" "[-]" nil ("-B" "-d" "castellano") "~latin1" iso-8859-1) ("czech" "[A-Za-z\301\311\314\315\323\332\331\335\256\251\310\330\317\253\322\341\351\354\355\363\372\371\375\276\271\350\370\357\273\362]" "[^A-Za-z\301\311\314\315\323\332\331\335\256\251\310\330\317\253\322\341\351\354\355\363\372\371\375\276\271\350\370\357\273\362]" #1="" nil ("-B") nil iso-8859-2) ("dansk" "[A-Z\306\330\305a-z\346\370\345]" "[^A-Z\306\330\305a-z\346\370\345]" "[']" nil ("-C") nil iso-8859-1) ("deutsch" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1) ("deutsch8" "[a-zA-Z\304\326\334\344\366\337\374]" "[^a-zA-Z\304\326\334\344\366\337\374]" "[']" t ("-C" "-d" "deutsch") "~latin1" iso-8859-1) ("english" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("esperanto" "[A-Za-z\246\254\266\274\306\330\335\336\346\370\375\376]" "[^A-Za-z\246\254\266\274\306\330\335\336\346\370\375\376]" "[-']" t ("-C") "~latin3" iso-8859-3) ("esperanto-tex" "[A-Za-z^\\]" "[^A-Za-z^\\]" "[-'`\"]" t ("-C" "-d" "esperanto") "~tex" iso-8859-3) ("finnish" "[A-Za-z\345\344\366\305\304\326]" "[^A-Za-z\345\344\366\305\304\326]" "[:]" nil ("-C") "~list" iso-8859-1) ("francais7" "[A-Za-z]" "[^A-Za-z]" "[`'^-]" t nil nil iso-8859-1) ("francais" "[A-Za-z\300\302\306\307\310\311\312\313\316\317\324\331\333\334\340\342\347\350\351\352\353\356\357\364\371\373\374]" "[^A-Za-z\300\302\306\307\310\311\312\313\316\317\324\331\333\334\340\342\347\350\351\352\353\356\357\364\371\373\374]" "[-'.@]" t nil "~list" iso-8859-1) ("francais-tex" "[A-Za-z\300\302\306\307\310\311\312\313\316\317\324\331\333\334\340\342\347\350\351\352\353\356\357\364\371\373\374\\]" "[^A-Za-z\300\302\306\307\310\311\312\313\316\317\324\331\333\334\340\342\347\350\351\352\353\356\357\364\371\373\374\\]" "[-'^`\".@]" t nil "~tex" iso-8859-1) ("german" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1) ("german8" "[a-zA-Z\304\326\334\344\366\337\374]" "[^a-zA-Z\304\326\334\344\366\337\374]" "[']" t ("-C" "-d" "german") "~latin1" iso-8859-1) ("italiano" "[A-Z\300\301\310\311\314\315\322\323\331\332a-z\340\341\350\351\354\355\363\371\372]" "[^A-Z\300\301\310\311\314\315\322\323\331\332a-z\340\341\350\351\354\355\363\371\372]" "[-.]" nil ("-B" "-d" "italian") "~tex" iso-8859-1) ("nederlands" "[A-Za-z\300\301\302\303\304\305\307\310\311\312\313\314\315\316\317\322\323\324\325\326\331\332\333\334\340\341\342\343\344\345\347\350\351\352\353\354\355\356\357\361\362\363\364\365\366\371\372\373\374]" "[^A-Za-z\300\301\302\303\304\305\307\310\311\312\313\314\315\316\317\322\323\324\325\326\331\332\333\334\340\341\342\343\344\345\347\350\351\352\353\354\355\356\357\361\362\363\364\365\366\371\372\373\374]" "[']" t ("-C") nil iso-8859-1) ("nederlands8" "[A-Za-z\300\301\302\303\304\305\307\310\311\312\313\314\315\316\317\322\323\324\325\326\331\332\333\334\340\341\342\343\344\345\347\350\351\352\353\354\355\356\357\361\362\363\364\365\366\371\372\373\374]" "[^A-Za-z\300\301\302\303\304\305\307\310\311\312\313\314\315\316\317\322\323\324\325\326\331\332\333\334\340\341\342\343\344\345\347\350\351\352\353\354\355\356\357\361\362\363\364\365\366\371\372\373\374]" "[']" t ("-C") nil iso-8859-1) ("norsk" "[A-Za-z\305\306\307\310\311\322\324\330\345\346\347\350\351\362\364\370]" "[^A-Za-z\305\306\307\310\311\322\324\330\345\346\347\350\351\362\364\370]" "[\"]" nil nil "~list" iso-8859-1) ("norsk7-tex" "[A-Za-z{}\\'^`]" "[^A-Za-z{}\\'^`]" "[\"]" nil ("-d" "norsk") "~plaintex" iso-8859-1) ("polish" "[A-Za-z\241\243\246\254\257\261\263\266\274\277\306\312\321\323\346\352\361\363]" "[^A-Za-z\241\243\246\254\257\261\263\266\274\277\306\312\321\323\346\352\361\363]" "[.]" nil nil nil iso-8859-2) ("portugues" "[a-zA-Z\301\302\307\311\323\340\341\342\351\352\355\363\343\347\372]" "[^a-zA-Z\301\302\307\311\323\340\341\342\351\352\355\363\343\347\372]" "[']" t ("-C") "~latin1" iso-8859-1) ("russian" "[\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]" "[^\341\342\367\347\344\345\263\366\372\351\352\353\354\355\356\357\360\362\363\364\365\346\350\343\376\373\375\370\371\377\374\340\361\301\302\327\307\304\305\243\326\332\311\312\313\314\315\316\317\320\322\323\324\325\306\310\303\336\333\335\330\331\337\334\300\321]" #1# nil nil nil koi8-r) ("russianw" "[\300\301\302\303\304\305\250\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\334\333\332\335\336\337\340\341\342\343\344\345\270\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\374\373\372\375\376\377]" "[^\300\301\302\303\304\305\250\306\307\310\311\312\313\314\315\316\317\320\321\322\323\324\325\326\327\330\331\334\333\332\335\336\337\340\341\342\343\344\345\270\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\374\373\372\375\376\377]" #1# nil nil nil windows-1251) ("slovak" "[A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" "[^A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" #1# nil ("-B") nil iso-8859-2) ("slovenian" "[A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" "[^A-Za-z\301\304\311\315\323\332\324\300\305\245\335\256\251\310\317\253\322\341\344\351\355\363\372\364\340\345\265\375\276\271\350\357\273\362]" #1# nil ("-B" "-d" "slovenian") nil iso-8859-2) ("svenska" "[A-Za-z\345\344\366\351\340\374\350\346\370\347\305\304\326\311\300\334\310\306\330\307]" "[^A-Za-z\345\344\366\351\340\374\350\346\370\347\305\304\326\311\300\334\310\306\330\307]" "[']" nil ("-C") "~list" iso-8859-1) ("hebrew" "[\340\341\342\343\344\345\346\347\350\351\353\352\354\356\355\360\357\361\362\364\363\367\366\365\370\371\372]" "[^\340\341\342\343\344\345\346\347\350\351\353\352\354\356\355\360\357\361\362\364\363\367\366\365\370\371\372]" #1# nil ("-B") nil cp1255)) (#$ . 12215))
#@2502 An alist of dictionaries and their associated parameters.
Each element of this list is also a list:
(DICTIONARY-NAME CASECHARS NOT-CASECHARS OTHERCHARS MANY-OTHERCHARS-P
ISPELL-ARGS EXTENDED-CHARACTER-MODE CHARACTER-SET)
DICTIONARY-NAME is a possible string value of variable `ispell-dictionary',
nil means the default dictionary.
CASECHARS is a regular expression of valid characters that comprise a word.
NOT-CASECHARS is the opposite regexp of CASECHARS.
OTHERCHARS is a regexp of characters in the NOT-CASECHARS set but which can be
used to construct words in some special way. If OTHERCHARS characters follow
and precede characters from CASECHARS, they are parsed as part of a word,
otherwise they become word-breaks. As an example in English, assume the
regular expression "[']" for OTHERCHARS. Then "they're" and
"Steven's" are parsed as single words including the "'" character, but
"Stevens'" does not include the quote character as part of the word.
If you want OTHERCHARS to be empty, use the empty string.
Hint: regexp syntax requires the hyphen to be declared first here.
CASECHARS, NOT-CASECHARS, and OTHERCHARS must be unibyte strings
containing bytes of CHARACTER-SET. In addition, if they contain
non-ASCII bytes, the regular expression must be a single
`character set' construct that doesn't specify a character range
for non-ASCII bytes.
MANY-OTHERCHARS-P is non-nil when multiple OTHERCHARS are allowed in a word.
Otherwise only a single OTHERCHARS character is allowed to be part of any
single word.
ISPELL-ARGS is a list of additional arguments passed to the ispell
subprocess.
EXTENDED-CHARACTER-MODE should be used when dictionaries are used which
have been configured in an Ispell affix file. (For example, umlauts
can be encoded as \"a, a\", "a, ...) Defaults are ~tex and ~nroff
in English. This has the same effect as the command-line `-T' option.
The buffer Major Mode controls Ispell's parsing in tex or nroff mode,
but the dictionary can control the extended character mode.
Both defaults can be overruled in a buffer-local fashion. See
`ispell-parsing-keyword' for details on this.
CHARACTER-SET used to encode text sent to the ispell subprocess
when the language uses non-ASCII characters.
Note that with "ispell" as the speller, the CASECHARS and
OTHERCHARS slots of the alist should contain the same character
set as casechars and otherchars in the LANGUAGE.aff file (e.g.,
english.aff). Aspell and Hunspell don't have this limitation.
(defvar ispell-dictionary-alist nil (#$ . 19396))
#@42 Non-nil if we can use Aspell extensions.
(defvar ispell-really-aspell nil (#$ . 21953))
#@44 Non-nil if we can use Hunspell extensions.
(defvar ispell-really-hunspell nil (#$ . 22047))
#@43 Non-nil if we can use Enchant extensions.
(defvar ispell-really-enchant nil (#$ . 22145))
#@615 Command line option prefix to select encoding if supported, nil otherwise.
If setting the encoding is supported by spellchecker and is selectable from
the command line, this variable will contain "--encoding=" for Aspell
and "-i " for Hunspell, so the appropriate mime charset can be selected.
That will be set in `ispell-check-version' for Hunspell >= 1.1.6 and
Aspell >= 0.60.
For Aspell, non-nil also means to try to automatically find its dictionaries.
Earlier Aspell versions do not consistently support charset encoding. Handling
this would require some extra guessing in `ispell-aspell-find-dictionary'.
(defvar ispell-encoding8-command nil (#$ . 22242))
#@256 Non-nil if Aspell has consistent command line UTF-8 support. Obsolete.
ispell.el and flyspell.el will use for this purpose the more generic
variable `ispell-encoding8-command' for both Aspell and Hunspell. Is left
here just for backwards compatibility.
(defvar ispell-aspell-supports-utf8 nil (#$ . 22914))
(make-obsolete-variable 'ispell-aspell-supports-utf8 'ispell-encoding8-command "23.1")
#@96 Alist with known matching locales for standard dict names in
`ispell-dictionary-base-alist'.
(defvar ispell-dicts-name2locale-equivs-alist '(("american" "en_US") ("brasileiro" "pt_BR") ("british" "en_GB") ("castellano" "es_ES") ("castellano8" "es_ES") ("czech" "cs_CZ") ("dansk" "da_DK") ("deutsch" "de_DE") ("deutsch8" "de_DE") ("english" "en_US") ("esperanto" "eo") ("esperanto-tex" "eo") ("finnish" "fi_FI") ("francais7" "fr_FR") ("francais" "fr_FR") ("francais-tex" "fr_FR") ("german" "de_DE") ("german8" "de_DE") ("italiano" "it_IT") ("nederlands" "nl_NL") ("nederlands8" "nl_NL") ("norsk" "nn_NO") ("norsk7-tex" "nn_NO") ("polish" "pl_PL") ("portugues" "pt_PT") ("russian" "ru_RU") ("russianw" "ru_RU") ("slovak" "sk_SK") ("slovenian" "sl_SI") ("svenska" "sv_SE") ("hebrew" "he_IL")) (#$ . 23316))
#@216 Ensure that `ispell-program-name' is valid and has the correct version.
Returns version number if called interactively.
Otherwise returns the library directory name, if that is defined.
(fn &optional INTERACTIVEP)
(defalias 'ispell-check-version #[256 "\306\300!\203\n \206 \307\310\211\211\211\311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216\322\n\310\323\310 \324>\325\n! \326\327\"\203= \330\202> \331)\266\202%\262eb\210\203^ \310\210\332e`\"\262\333\334\"\210\202z \335!\262\336!\262\203z \337!\262\340\235\204z \262eb\210\341>\204\224 \342\343\n;\203\217 \344\202\220 \345$\210\310 \346\347\310\323#\205\241 \350\351!\262\310\2115\310\21167eb\210\346\352\310\323#\205\274 \350\351!\211\204\337 \346\353\310\323#\205\314 \350\351!\2115\204\337 \346\354\310\323#\205\335 \350\351!6)\355\356\357\360\361\"\204\360 \202
\203\377 \361
\"\204\377 \2026\205\3616\"?\205\211\211\203\342\362\n#\210
\203\"\3637\20285\2038\3615\"\2035\3647\2028\3105\266*\210)\207" [temporary-file-directory default-directory ispell-program-name system-type case-fold-search ispell-really-aspell boundp #[257 "\300\301P\302\303#\205
\304\305!\207" [re-search-forward " = \\\"\\(.+?\\)\\\"" nil t match-string 1] 5 "\n\n(fn VAR)"] nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ispell-call-process t (ms-dos windows-nt) file-name-nondirectory string-match "\\`aspell" "-v" "-vv" buffer-substring-no-properties message "%s" "LIBDIR" "LIBRARYVAR" getenv (nil "") (0 nil) error "%s exited with %s %s" "signal" "code" search-forward-regexp "\\([0-9]+\\.[0-9.]+\\)" match-string 1 "(but really Aspell \\([0-9]+\\.[0-9.]+\\([-._+ ]?[a-zA-Z0-9]+\\)?\\)?)" "(but really Hunspell \\([0-9]+\\.[0-9.]+\\([-._+ ]?[a-zA-Z0-9]+\\)?\\)?)" "(but really Enchant \\([0-9]+\\.[0-9.]+\\([-._+ ]?[a-zA-Z0-9]+\\)?\\)?)" "0.60" "3.1.12" "1.1.6" "2.1.0" version<= "%s release %s or greater is required" "--encoding=" "-i" ispell-really-hunspell ispell-really-enchant ispell-encoding8-command] 19 (#$ . 24129) "p"])
#@82 Like `call-process' but defend against bad `default-directory'.
(fn &rest ARGS)
(defalias 'ispell-call-process #[128 "\301!\204\f \302\303!\304\305\")\207" [default-directory file-accessible-directory-p expand-file-name "~/" apply call-process] 4 (#$ . 26262)])
#@89 Like `call-process-region' but defend against bad `default-directory'.
(fn &rest ARGS)
(defalias 'ispell-call-process-region #[128 "\301!\204\f \302\303!\304\305\")\207" [default-directory file-accessible-directory-p expand-file-name "~/" apply call-process-region] 4 (#$ . 26536)])
#@260 Create an ispell debug buffer for debugging output.
If APPEND is non-nil, add output to the old buffer if it exists,
otherwise the buffer is erased first. Returns the debug buffer.
See `ispell-buffer-with-debug' for an example of use.
(fn &optional APPEND)
(defalias 'ispell-create-debug-buffer #[256 "\301\302!rq\210\211\203 \303\304!c\210\202 \305 \210))\207" [ispell-debug-buffer get-buffer-create "*ispell-debug*" format "-----------------------------------------------\n" erase-buffer] 3 (#$ . 26832)])
#@98 Print message using FORMAT and ARGS to `ispell-debug-buffer' if enabled.
(fn FORMAT &rest ARGS)
(defalias 'ispell-print-if-debug #[385 "\301\300!\205 rq\210db\210\302\303#c)\207" [ispell-debug-buffer boundp apply format] 6 (#$ . 27353)])
(put 'ispell-print-if-debug 'byte-optimizer 'byte-compile-inline-expand)
#@45 Directory where ispell dictionaries reside.
(defvar ispell-library-directory (byte-code "\3001 \301 0\207\210\302\207" [(error) ispell-check-version nil] 1) (#$ . 27675))
#@32 The process object for Ispell.
(defvar ispell-process nil (#$ . 27853))
#@60 Non-nil means that the OS supports asynchronous processes.
(defvar ispell-async-processp (byte-code "\300\301!\205 \300\302!\205 \300\303!\207" [fboundp delete-process process-send-string accept-process-output] 2) (#$ . 27931))
#@74 An alist of parsed Aspell dicts and associated parameters.
Internal use.
(defvar ispell-aspell-dictionary-alist nil (#$ . 28167))
#@77 Find Aspell's dictionaries, and record in `ispell-aspell-dictionary-alist'.
(defalias 'ispell-find-aspell-dictionaries #[0 "\303\304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\315\316\317\316\320%\210\321 *\262!\322\316\323\324\"\"\325!\262 \211\203J \211@\326@\"\204C C\244\262A\266\202\202/ \210\211\327\211\nB\211\262\207" [ispell-program-name ispell-dictionary-base-alist ispell-aspell-dictionary-alist split-string generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ispell-call-process nil t "dicts" buffer-string delq mapcar ispell-aspell-find-dictionary ispell-aspell-add-aliases assoc (nil "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-B") nil utf-8)] 8 (#$ . 28303)])
#@27 Data directory of Aspell.
(defvar ispell-aspell-data-dir nil (#$ . 29075))
#@33 Dictionary directory of Aspell.
(defvar ispell-aspell-dict-dir nil (#$ . 29156))
#@103 Return value of Aspell configuration option KEY.
Assumes that value contains no whitespace.
(fn KEY)
(defalias 'ispell-get-aspell-config-value #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\313\315&\210\316\317 !@*\207" [ispell-program-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ispell-call-process nil t "config" split-string buffer-string] 9 (#$ . 29244)])
#@197 For Aspell dictionary DICT-NAME, return a list of parameters if an
associated data file is found or nil otherwise. List format is that
of `ispell-dictionary-base-alist' elements.
(fn DICT-NAME)
(defalias 'ispell-aspell-find-dictionary #[257 "\204 \302\303! \204 \302\304!\3052V D\211\205S \211@\306\307\310E\211\203K \211@\311\312\"\2056 \313\314\"\315R\316!\203C \317\305\"\210\210A\266\202\202! \210A\266\202\202 \2620\320\205\261 \321\322!r\211q\210\323\314\324\325\326!\327\"\330$\216\331!\210\332\333\320\334#\203\237 \335`\320\210`{!\211\203\236 \211A@\336H\337=\203\226 \211@B\262\211AA\262\202\202 \210\340\341\342!\334\343 D\320\344\257*\262\207" [ispell-aspell-dict-dir ispell-aspell-data-dir ispell-get-aspell-config-value "dict-dir" "data-dir" datafile "^[[:alpha:]]+" "^[[:alpha:]_]+" "^[[:alpha:]]+-\\(alt\\|old\\)" "/" string-match match-string 0 ".dat" file-readable-p throw nil generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents search-forward-regexp "^special" t split-string 1 42 "[[:alpha:]]" "[^[:alpha:]]" regexp-opt "-d" utf-8] 12 (#$ . 29727)])
#@113 Find Aspell's dictionary aliases and add them to dictionary ALIST.
Return the new dictionary alist.
(fn ALIST)
(defalias 'ispell-aspell-add-aliases #[257 "\302\206\n \303\304!\211\305P!\211\211\203_ \211@\306\307!r\211q\210\310\311\312\313\314!\315\"\316$\216\317!\210\320\321\322\323#\203V \324!\325\"\326\327!\325 \"\211\203T \204T AB B\262 \266*\210A\266\202\202 \210 \211\203\222 \211@\211@A@\325\"\204\211 \325\"\203\211 \325\"ABB\262\266A\266\202\202a \210\207" [ispell-aspell-dict-dir ispell-dicts-name2locale-equivs-alist file-expand-wildcards ispell-get-aspell-config-value "dict-dir" "/*.alias" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents search-forward-regexp "^add \\([^.]+\\)\\.multi" nil t file-name-base assoc match-string 1] 11 (#$ . 30925)])
#@209 Alist of parsed Hunspell dicts and associated affix files.
Will be used to parse corresponding .aff file and create associated
parameters to be inserted into `ispell-hunspell-dictionary-alist'.
Internal use.
(defvar ispell-hunspell-dict-paths-alist nil (#$ . 31824))
#@204 Alist of parsed Hunspell dicts and associated parameters.
This alist will initially contain names of found dicts. Associated
parameters will be added when dict is used for the first time.
Internal use.
(defvar ispell-hunspell-dictionary-alist nil (#$ . 32098))
#@216 Fill uninitialized entries in `ispell-dictionary-alist' for DICT and aliases.
Value of those entries will be extracted from Hunspell affix file and used for
all uninitialized dicts using that affix file.
(fn DICT)
(defalias 'ispell-hunspell-fill-dictionary-entry #[257 "\303\"A@\203 \304\305\"\207\303 \"A@C\306!A\307 \211\203\206 \211@\211@A@\235\2045 \235\203} D\211\203| \211@\303\"A@\203c \310C\311\302!\205^ r\nq\210db\210\312\313#c)\266\202u \211 \235\203o \202s \211 B\262 A\266\202\2028 \210\266A\266\202\202 \210\314D\311\302!\205\237 r\nq\210db\210\312\313#c)\266\211\203\317 \211@\211@\235\203\266 \211@B\202\267 \211\211\235\203\301 \202\304 \211B\262\262A\266\202\202\242 \210\211\211\207" [ispell-dictionary-alist ispell-dicts-name2locale-equivs-alist ispell-debug-buffer assoc message "ispell-hfde: Non void entry for %s. Skipping.\n" ispell-parse-hunspell-affix-file nil "ispell-hfde: %s already expanded; skipping.\n" boundp apply format "ispell-hfde: Filling %s entry. Use for %s.\n"] 17 (#$ . 32367)])
#@422 Parse Hunspell affix file to extract parameters for DICT-KEY.
Return a list in `ispell-dictionary-alist' format.
DICT_KEY can be in the "DICT1,DICT2,DICT3" format, to invoke Hunspell
with a list of dictionaries. The first dictionary in the list must have
a corresponding .aff affix file; the rest are allowed to have no affix
files, and will then use the affix file of the preceding dictionary that
did.
(fn DICT-KEY)
(defalias 'ispell-parse-hunspell-affix-file #[257 "\301\302\303#\303\304\305\211\203\270 \211@\306\"A@\211\204 \307\310\"\210\203- \311!\204- \307\312\"\210\2034 \305\262\313\314!!\305\315\316!r\211q\210\317\320\321\322\323!\324\"\325$\216\326!\210\212eb\210\327\330\305\303#\205c `\305\210`{)\262\203\237 \331\320\332\333\"#\334\305\"\335\336\"\262\211\211\203\235 \211@\211 \235\203\220 \n\202\224 \211 B\262 A\266\202\202~ \266*\210\211G\320V\205\253 \302Q\262\266A\266\202\202 \210\337\340\203\312 \341\342\343\"!\202\313 \304\303\344D\305\345\257\207" [ispell-hunspell-dict-paths-alist split-string "," t "" nil assoc error "ispell-phaf: No matching entry for %s in `ispell-hunspell-dict-paths-alist'.\n" file-exists-p "ispell-phaf: File \"%s\" not found.\n" file-name-sans-extension file-name-nondirectory generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents search-forward-regexp "^WORDCHARS +" substring string-match " +" append delq 32 "[[:alpha:]]" "[^[:alpha:]]" regexp-opt mapcar char-to-string "-d" utf-8] 17 (#$ . 33442)])
#@297 Add DICT of the form "DICT1,DICT2,..." to `ispell-dictionary-alist'.
Invoke this command before you want to start Hunspell for the first time
with a particular combination of dictionaries. The first dictionary
in the list must have an affix file where Hunspell affix files are kept.
(fn DICT)
(defalias 'ispell-hunspell-add-multi-dic #[257 "\303\304\305#@\204 \306 \210\307\n\"\204\" \307 \"\204\" \310\311\"\210\210\211\312D\211 \235\2030 \2023 \211 B\262\313!\207" [ispell-hunspell-dictionary-alist ispell-dictionary-alist ispell-local-dictionary-alist split-string "," t ispell-find-hunspell-dictionaries assoc error "Unknown dictionary: %s" nil ispell-hunspell-fill-dictionary-entry] 5 (#$ . 35038) "sMulti-dictionary combination: "])
#@260 Look for installed Hunspell dictionaries.
Will initialize `ispell-hunspell-dictionary-alist' according
to dictionaries found, and will remove aliases from the list
in `ispell-dicts-name2locale-equivs-alist' if an explicit
dictionary from that list was found.
(defalias 'ispell-find-hunspell-dictionaries #[0 "\306\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320 \321\322\323\324 &\210\325 *\262\326\321#\322\211\211\211\203\340 \211@\327!\330!\331P\332\333\"\203{ \203U \206M @\334Q\262\202] \262D\262\335E\336\302!\205v r\nq\210db\210\337\340#c)\266\202\327 \341 \"\204\276 \342!\203\276 \343!\344F\336\302!\205\245 r\nq\210db\210\337\340#c)\266D\211 \235\203\264 \202\267 \211 B\262\210\202\327 \345C\336\302!\205\325 r\nq\210db\210\337\340#c)\266\266A\266\202\202+ \210\322\f\211\203$\211@\341@ \"\203\346@C\336\302!\205 r\nq\210db\210\337\340#c)\266\202 \211\235\203\202\211B\262A\266\202\202\343 \210\211\211\203\210\211@\211@A@\347\350\351\352F\341 \"\203\341 \"\204\235\204\341 \"A@\353D\336\302!\205ir\nq\210db\210\337\340#c)\266D\211 \235\203x \202{\211 B\262\210\266A\266\202\202'\210\211\206\217@\262\204\231\354\355!\210\356!\262\322ABC\357\360 \"\211\205\321\211@\211\230\203\270\202\272\211C\211
\235\203\304
\202\307\211
B\262A\266\202\202\250\262\207" [ispell-program-name null-device ispell-debug-buffer ispell-hunspell-dict-paths-alist ispell-dicts-name2locale-equivs-alist ispell-hunspell-dictionary-alist split-string generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ispell-call-process t nil "-D" "-a" buffer-string "[\n
]+" file-name-nondirectory file-name-sans-extension ".aff" string-match "\\.aff$" "," "++ ispell-fhd: default dict-entry:%s name:%s basename:%s\n" boundp apply format assoc file-exists-p expand-file-name "++ ispell-fhd: dict-entry:%s name:%s basename:%s affix-file:%s\n" "-- ispell-fhd: Skipping entry: %s\n" "-- ispell-fhd: Excluding %s alias. Standalone dict found.\n" "esperanto-tex" "francais7" "francais-tex" "norsk7-tex" "++ ispell-fhd: Adding alias %s -> %s.\n" error "Can't find Hunspell dictionary with a .aff affix file" ispell-parse-hunspell-affix-file mapcar car] 17 (#$ . 35799)])
#@75 An alist of parsed Enchant dicts and associated parameters.
Internal use.
(defvar ispell-enchant-dictionary-alist nil (#$ . 38142))
#@80 Call enchant-lsmod with ARGS and return the output as string.
(fn &rest ARGS)
(defalias 'ispell--call-enchant-lsmod #[128 "\302\303!\304\216rq\210\305\306\307\310\311 #\312\313\312&\210*rq\210\314 +\207" [standard-output ispell-program-name generate-new-buffer " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] apply ispell-call-process replace-regexp-in-string "enchant\\(-[0-9]\\)?\\'" "enchant-lsmod\\1" nil t buffer-string] 8 (#$ . 38280)])
#@159 Get the extra word characters for LANG as a character class.
If LANG is omitted, get the extra word characters for the default language.
(fn &optional LANG)
(defalias 'ispell--get-extra-word-characters #[256 "\301\302\303\304\205\n C\"\"\305\306\206 \307\310Q\305\311\312#)\266\203\211\203- \313\314#\202. \266\203\211\315\230\203: \315\202> \316\317Q\207" [inhibit-changing-match-data apply ispell--call-enchant-lsmod append ("-word-chars") nil "\\(?:" "[ \n
]+" "\\)\\'" t string-match substring 0 "" "[" "]"] 10 (#$ . 38760)])
#@79 Find Enchant's dictionaries, and record in `ispell-enchant-dictionary-alist'.
(defalias 'ispell-find-enchant-dictionaries #[0 "\302\303\304\305 \"\306\"\307\310\"\211\203( \211@\311@\"\204! C\244\262A\266\202\202
\210\211\312\313\314\315 \316BBBB\211 B\211\262\207" [ispell-dictionary-base-alist ispell-enchant-dictionary-alist split-string ispell--call-enchant-lsmod "-list-dicts" buffer-string " ([^)]+)\n" mapcar #[257 "\211\300\301\302 \303BBBB\207" ["[[:alpha:]]" "[^[:alpha:]]" ispell--get-extra-word-characters (t nil nil utf-8)] 6 "\n\n(fn LANG)"] assoc nil "[[:alpha:]]" "[^[:alpha:]]" ispell--get-extra-word-characters (t nil nil utf-8)] 7 (#$ . 39311)])
#@53 Last value of `ispell-program-name'. Internal use.
(defvar ispell-last-program-name nil (#$ . 39994))
#@492 Normal hook run on spellchecker initialization.
This hook is run when a spellchecker is used for the first
time, before `ispell-dictionary-alist' is set. It is intended for
sysadmins to override entries in `ispell-dictionary-base-alist'
by putting those overrides in `ispell-base-dicts-override-alist', which is
a dynamically scoped var with same format as `ispell-dictionary-alist'.
This alist will not override the auto-detected values (e.g. if a recent
aspell is used along with Emacs).
(defvar ispell-initialize-spellchecker-hook nil (#$ . 40104))
#@69 Initialize some spellchecker parameters when changed or first used.
(defalias 'ispell-set-spellchecker-params #[0 " =\204\214\306\307!\210\3101 \311 \3070\202 \210\202P \203P \204% \f\203P
\2034 \204P \312 \210\202P \203D \204P \313 \210\202P \f\203P \204P \314 \210 \203g
\203] \202m \205m \202m \f\205m !\315\211 \" ! \204\200 \f\203\n\315!\211\203\211@\211@\316#\"A@\3178\320\235\315\203\254 AA\321G\"\211\244\262\266\203\307 \203\276 \320D\244\262\202\307 \322\323\"\210\307\262\211\204\374 A@\3248\325 8\326\n8\327\f8\330
8\257\211 \235\203\364 \202\370 \211 B\262\262\266!A\266\202\202\203 \266\331\332!\210\333\"!#\211\203/\211@\316@\"\204(\211B\262A\266\202\202\210\211$*\266\315$\211\203\211\211@\211A@\203p\211@A@\3248\3258\3268\3178\3278 \204c\f\203g\334\202k\3308\257\202q\211\211\235\203{\202~\211B\262\262A\266\202\2029\210$ \211\207" [ispell-last-program-name ispell-program-name ispell-library-directory ispell-encoding8-command ispell-really-enchant ispell-really-aspell ispell-kill-ispell t (error) ispell-check-version ispell-find-aspell-dictionaries ispell-find-hunspell-dictionaries ispell-find-enchant-dictionaries nil assoc 5 "-d" butlast message "ispell-set-spellchecker-params: Missing equivalent for \"%s\". Skipping." 2 3 4 6 7 run-hooks ispell-initialize-spellchecker-hook append utf-8 ispell-aspell-dictionary-alist ispell-really-hunspell ispell-hunspell-dictionary-alist ispell-enchant-dictionary-alist ispell-dictionary-base-alist ispell-base-dicts-override-alist ispell-dicts-name2locale-equivs-alist ispell-dictionary-alist] 21 (#$ . 40663)])
#@102 Return a list of valid dictionaries.
The variable `ispell-library-directory' defines their location.
(defalias 'ispell-valid-dictionary-list #[0 "\304\305!\203 \306 \210\307 \"\310\311B\312\311\211\211\211\203_ \211@\211@\262\313\3148\235A@\262\206- \262\203X \n\204R \203R \203K \315!\203K !\204R \"\203X B\262A\266\202\202 \210\207" [ispell-local-dictionary-alist ispell-dictionary-alist ispell-really-aspell ispell-library-directory featurep ispell ispell-set-spellchecker-params append "default" nil #[513 "\300\301!\206 \302!C\303!?\205 \304#\207" [locate-file file-name-nondirectory file-name-directory file-name-extension (".hash" ".has")] 7 "\n\n(fn DICT &optional DIR)"] "-d" 5 file-name-absolute-p] 11 (#$ . 42363)])
#@26 Key map for ispell menu.
(defconst ispell-menu-map (byte-code "\300\301!\302\303\304\305\306!\307\310\305\311!\257#\210\302\312\304\305\313!\314\315\316\310\305\317!\257#\210\302\320\304\305\321!\322\310\305\323!\257#\210\302\324\304\305\325!\326\310\305\327!\257#\210\302\330\304\305\331!\332\310\305\333!\257#\210\302\334\304\305\335!\336\310\305\337!\340BBBBB#\210\302\341\304\305\342!\343\310\305\344!\257#\210\302\345\304\305\346!\347\310\305\350!\257#\210\302\351\304\305\352!\353\315\354\310\305\355!\257#\210\302\356\304\305\357!\360\310\305\361!\257#\210\302\362\304\305\363!\364\310\305\365!\257#\210\302\366\304\305\367!\370\315\371\310\305\372!\257#\210\302\373\304\305\374!\375\376\377\310\305\201@ !\257#\210\302\201A \304\305\201B !\201C \310\305\201D !\257#\210\211\207" [make-sparse-keymap "Spell" define-key [ispell-change-dictionary] menu-item purecopy "Change Dictionary..." ispell-change-dictionary :help "Supply explicit dictionary file name" [ispell-kill-ispell] "Kill Process" (lambda nil (interactive) (ispell-kill-ispell nil 'clear)) :enable (and (boundp 'ispell-process) ispell-process (eq (ispell-process-status) 'run)) "Terminate Ispell subprocess" [ispell-pdict-save] "Save Dictionary" (lambda nil (interactive) (ispell-pdict-save t t)) "Save personal dictionary" [ispell-customize] "Customize..." (lambda nil (interactive) (customize-group 'ispell)) "Customize spell checking options" [ispell-help] "Help" (lambda nil (interactive) (describe-function 'ispell-help)) "Show standard Ispell keybindings and commands" [flyspell-mode] "Automatic spell checking (Flyspell)" flyspell-mode "Check spelling while you edit the text" (:button (:toggle bound-and-true-p flyspell-mode)) [ispell-complete-word] "Complete Word" ispell-complete-word "Complete word at cursor using dictionary" [ispell-complete-word-interior-frag] "Complete Word Fragment" ispell-complete-word-interior-frag "Complete word fragment at cursor" [ispell-continue] "Continue Spell-Checking" ispell-continue (and (boundp 'ispell-region-end) (marker-position ispell-region-end) (equal (marker-buffer ispell-region-end) (current-buffer))) "Continue spell checking last region" [ispell-word] "Spell-Check Word" ispell-word "Spell-check word at cursor" [ispell-comments-and-strings] "Spell-Check Comments" ispell-comments-and-strings "Spell-check only comments and strings" [ispell-region] "Spell-Check Region" ispell-region mark-active "Spell-check text in marked region" [ispell-message] "Spell-Check Message" ispell-message :visible (eq major-mode 'mail-mode) "Skip headers and included message text" [ispell-buffer] "Spell-Check Buffer" ispell-buffer "Check spelling of selected buffer"] 12) (#$ . 43127))
(byte-code "\300\211JM\207" [ispell-menu-map] 2)
#@205 The name of the current dictionary, or nil for the default.
This is passed to the Ispell process using the `-d' switch and is
used as key in `ispell-local-dictionary-alist' and `ispell-dictionary-alist'.
(defvar ispell-current-dictionary nil (#$ . 45908))
#@130 The name of the current personal dictionary, or nil for the default.
This is passed to the Ispell process using the `-p' switch.
(defvar ispell-current-personal-dictionary nil (#$ . 46171))
#@81 Get the decoded string in slot N of the descriptor of the current dict.
(fn N)
(defalias 'ispell-get-decoded-string #[257 "\303 \"\206 \303\n\"\206 \304\305\"8\211;\205 \306\307 \310#\207" [ispell-current-dictionary ispell-local-dictionary-alist ispell-dictionary-alist assoc error "No data for dictionary \"%s\" in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'" decode-coding-string ispell-get-coding-system t] 7 (#$ . 46367)])
(defalias 'ispell-get-casechars #[0 "\300\301!\207" [ispell-get-decoded-string 1] 2])
(defalias 'ispell-get-not-casechars #[0 "\300\301!\207" [ispell-get-decoded-string 2] 2])
(defalias 'ispell-get-otherchars #[0 "\300\301!\207" [ispell-get-decoded-string 3] 2])
(defalias 'ispell-get-many-otherchars-p #[0 "\303\304 \"\206\f \304\n\"8\207" [ispell-current-dictionary ispell-local-dictionary-alist ispell-dictionary-alist 4 assoc] 4])
(defalias 'ispell-get-ispell-args #[0 "\303\304 \"\206\f \304\n\"8\207" [ispell-current-dictionary ispell-local-dictionary-alist ispell-dictionary-alist 5 assoc] 4])
(defalias 'ispell-get-extended-character-mode #[0 "?\205 \304\305 \n\"\206 \305 \"8\207" [ispell-really-hunspell ispell-current-dictionary ispell-local-dictionary-alist ispell-dictionary-alist 6 assoc] 4])
(defalias 'ispell-get-coding-system #[0 "\303\304 \"\206\f \304\n\"8\207" [ispell-current-dictionary ispell-local-dictionary-alist ispell-dictionary-alist 7 assoc] 4])
#@66 Non-nil means personal dictionary has modifications to be saved.
(defvar ispell-pdict-modified-p nil (#$ . 47812))
(defvar ispell-quit nil)
#@51 The directory where `ispell-process' was started.
(defvar ispell-process-directory nil (#$ . 47958))
#@43 Output filter from piped calls to Ispell.
(defvar ispell-filter nil (#$ . 48065))
#@46 Control variable for Ispell filter function.
(defvar ispell-filter-continue nil (#$ . 48153))
#@68 Buffer used for reading output of a synchronous Ispell subprocess.
(defvar ispell-output-buffer nil (#$ . 48253))
#@67 Buffer used for passing input to a synchronous Ispell subprocess.
(defvar ispell-session-buffer nil (#$ . 48373))
#@68 Command-line arguments to pass to a synchronous Ispell subprocess.
(defvar ispell-cmd-args nil (#$ . 48493))
#@40 Marker for `query-replace' processing.
(defvar ispell-query-replace-marker (make-marker) (#$ . 48608))
#@46 Marker for return point from recursive edit.
(defvar ispell-recursive-edit-marker (make-marker) (#$ . 48717))
#@104 Non-nil when we're checking a mail message.
Set to the MIME boundary locations when checking messages.
(defvar ispell-checking-message nil (#$ . 48834))
(defconst ispell-choices-buffer "*Choices*")
#@43 Overlay variable for Ispell highlighting.
(defvar ispell-overlay nil (#$ . 49038))
#@183 The keyword for local oddly-spelled words to accept.
The keyword will be followed by any number of local word spellings.
There can be multiple instances of this keyword in the file.
(defconst ispell-words-keyword "LocalWords: " (#$ . 49128))
#@244 The keyword for a local dictionary to use.
The keyword must be followed by a valid dictionary name, defined in
`ispell-local-dictionary-alist' or `ispell-dictionary-alist'.
When multiple occurrences exist, the last keyword
definition is used.
(defconst ispell-dictionary-keyword "Local IspellDict: " (#$ . 49377))
#@178 The keyword for defining buffer local dictionaries.
Keyword must be followed by the filename of a personal dictionary.
The last occurring definition in the buffer will be used.
(defconst ispell-pdict-keyword "Local IspellPersDict: " (#$ . 49698))
#@375 The keyword for overriding default Ispell parsing.
The above keyword string should be followed by `latex-mode' or
`nroff-mode' to put the current buffer into the desired parsing mode.
Extended character mode can be changed for this buffer by placing
a `~' followed by an extended-character mode -- such as `~.tex'.
The last occurring definition in the buffer will be used.
(defconst ispell-parsing-keyword "Local IspellParsing: " (#$ . 49952))
#@116 Return CHAR in a string when CHAR doesn't have "word" syntax,
nil otherwise. CHAR must be a character.
(fn CHAR)
(defalias 'ispell--\\w-filter #[257 "\300!\301\302\"?\205\f \211\207" [string string-match "\\w"] 5 (#$ . 50404)])
#@453 Make a regular expression like "\(\w\|[-_]\)".
This (parenthesized) expression matches either a character of
"word" syntax or one in CHARS.
CHARS is a string of characters. A member of CHARS is omitted
from the expression if it already has word syntax. (Be careful
about special characters such as ?\, ?^, ?], and ?- in CHARS.)
If after this filtering there are no chars left, or only one, a
special form of the expression is generated.
(fn CHARS)
(defalias 'ispell--make-\\w-expression #[257 "\300\301\302#\303\302\232\203 \304\202\" G\305=\203 \306\304Q\202\" \307\310QP\207" [mapconcat ispell--\\w-filter "" "\\(\\w" "\\)" 1 "\\|" "\\|[" "]\\)"] 6 (#$ . 50643)])
#@202 Construct a regexp to match some file names or URLs or email addresses.
The expression is crafted to match as great a variety of these
objects as practicable, without too many false matches happening.
(defalias 'ispell--make-filename-or-URL-re #[0 "\300\301\302!\303\301\302!\304\301\305!\306\260\207" ["\\(/\\w\\|\\(" ispell--make-\\w-expression "-_" "+[.:@]\\)\\)" "*\\([.:/@]+" "-_~=?&" "+\\)+"] 7 (#$ . 51327)])
#@379 Alist expressing beginning and end of regions not to spell check.
The alist key must be a regular expression.
Valid forms include:
(KEY) - just skip the key.
(KEY . REGEXP) - skip to the end of REGEXP. REGEXP may be string or symbol.
(KEY REGEXP) - skip to end of REGEXP. REGEXP must be a string.
(KEY FUNCTION ARGS) - FUNCTION called with ARGS returns end of region.
(defvar ispell-skip-region-alist (byte-code "\300\301\302\303\304\305!\304\306!B\304\307!\304\310!B\304\311!\304\312!B\304\313!\304\314!B\257\207" [(ispell-words-keyword forward-line) (ispell-dictionary-keyword forward-line) (ispell-pdict-keyword forward-line) (ispell-parsing-keyword forward-line) purecopy "^---*BEGIN PGP [A-Z ]*--*" "^---*END PGP [A-Z ]*--*" "^begin [0-9][0-9][0-9] [^ ]+$" "\nend\n" "^%!PS-Adobe-[123].0" "\n%%EOF\n" "^---* \\(Start of \\)?[Ff]orwarded [Mm]essage" "^---* End of [Ff]orwarded [Mm]essage"] 10) (#$ . 51751))
(put 'ispell-skip-region-alist 'risky-local-variable t)
#@206 Lists of regions to be skipped in TeX mode.
First list is used raw.
Second list has key placed inside \begin{}.
Delete or add any regions you want to be automatically selected
for skipping in latex mode.
(defvar ispell-tex-skip-alists (purecopy '((("\\\\addcontentsline" ispell-tex-arg-end 2) ("\\\\add\\(tocontents\\|vspace\\)" ispell-tex-arg-end) ("\\\\\\([aA]lph\\|arabic\\)" ispell-tex-arg-end) ("\\\\cref" ispell-tex-arg-end) ("\\\\bibliographystyle" ispell-tex-arg-end) ("\\\\makebox" ispell-tex-arg-end 0) ("\\\\e?psfig" ispell-tex-arg-end) ("\\\\document\\(class\\|style\\)" . "\\\\begin[ \n]*{[ \n]*document[ \n]*}")) (("\\(figure\\|table\\)\\*?" ispell-tex-arg-end 0) ("list" ispell-tex-arg-end 2) ("program" . "\\\\end[ \n]*{[ \n]*program[ \n]*}") ("verbatim\\*?" . "\\\\end[ \n]*{[ \n]*verbatim\\*?[ \n]*}")))) (#$ . 52738))
(put 'ispell-tex-skip-alist 'risky-local-variable t)
#@186 Lists of start and end keys to skip in HTML buffers.
Same format as `ispell-skip-region-alist'.
Note - substrings of other matches must come last
(e.g. "<[tT][tT]/" and "<[^ \t\n>]").
(defconst ispell-html-skip-alists '(("<[cC][oO][dD][eE]\\>[^>]*>" "</[cC][oO][dD][eE]*>") ("<[sS][cC][rR][iI][pP][tT]\\>[^>]*>" "</[sS][cC][rR][iI][pP][tT]>") ("<[aA][pP][pP][lL][eE][tT]\\>[^>]*>" "</[aA][pP][pP][lL][eE][tT]>") ("<[vV][eE][rR][bB]\\>[^>]*>" "<[vV][eE][rR][bB]\\>[^>]*>") ("<[tT][tT]/" "/") ("<[^ \n>]" ">") ("&[^ \n;]" "[; \n]")) (#$ . 53645))
(put 'ispell-html-skip-alists 'risky-local-variable t)
#@437 A buffer local variable containing the current personal dictionary.
If non-nil, the value must be a string, which is a file name.
If you specify a personal dictionary for the current buffer which is
different from the current personal dictionary, the effect is similar
to calling \[ispell-change-dictionary]. This variable is automatically
set when defined in the file with either `ispell-pdict-keyword' or the
local variable syntax.
(defvar ispell-local-pdict ispell-personal-dictionary (#$ . 54256))
(make-variable-buffer-local 'ispell-local-pdict)
#@128 Contains the buffer name if local word definitions were used.
Ispell is then restarted because the local words could conflict.
(defvar ispell-buffer-local-name nil (#$ . 54816))
#@52 List of words accepted for session in this buffer.
(defvar ispell-buffer-session-localwords nil (#$ . 55000))
(make-variable-buffer-local 'ispell-buffer-session-localwords)
#@353 Indicates whether ispell should parse the current buffer as TeX Code.
Special value `use-mode-name' tries to guess using the name of `major-mode'.
Default parser is `nroff'.
Currently the only other valid parser is `tex'.
You can set this variable in hooks in your init file -- eg:
(add-hook \='tex-mode-hook (lambda () (setq ispell-parser \='tex)))
(defvar ispell-parser 'use-mode-name (#$ . 55180))
#@44 Marker that allows spelling continuations.
(defvar ispell-region-end (make-marker) (#$ . 55589))
#@61 If non-nil, `ispell-word' does not try to correct the word.
(defvar ispell-check-only nil (#$ . 55692))
#@314 Wait for output from Ispell process, or for TIMEOUT-SECS + TIMEOUT-MSECS.
(The TIMEOUT-MSECS argument is obsolete and should be avoided.)
If asynchronous subprocesses are not supported, call function `ispell-filter'
and pass it the output of the last Ispell invocation.
(fn &optional TIMEOUT-SECS TIMEOUT-MSECS)
(defalias 'ispell-accept-output #[512 "\203 \211\203 \206
\304\305\245\\\202 \306 \"\207 \204\" \307\310!\207\n\311\312!\2040 \311\211\202G rq\210\313ed\"\262)\303\314\"\210rq\210\315 )\207" [ispell-async-processp ispell-process ispell-output-buffer ispell-filter 0 1000.0 accept-process-output error "No Ispell process to read output from!" nil bufferp buffer-substring-no-properties t erase-buffer] 7 (#$ . 55803)])
#@205 Notify spell checker that MISSPELLED should be spelled REPLACEMENT.
This allows improving the suggestion list based on actual misspellings.
Only works for Aspell and Enchant.
(fn MISSPELLED REPLACEMENT)
(defalias 'ispell-send-replacement #[514 "\204 \205 \302\303\304\305\260!\207" [ispell-really-aspell ispell-really-enchant ispell-send-string "$$ra " "," "\n"] 8 (#$ . 56556)])
#@60 Send the string STRING to the Ispell process.
(fn STRING)
(defalias 'ispell-send-string #[257 "\203 \306 \"\207\211\307H\310\n \f
\311rq\210`\262!c\210>?\205\301 \312 \211 \" #\311q\210\313 \210q\210\314\315ed$\311\n\311\316%\203N \317\202O \320
&\n\262q\210eb\210\321 \322\307\323\324\325!\326\"\327$\216\330\331!\204z \332\333\334`\311\210`\"\"\210 \335\230\204\210 \311y\210e`|\210q\210`|\210\336>\205\273 \337eb\210\211\205\271 \330\340!\203\260 `\311y\210\211`|\266\202\232 \311y\307U\262\202\232 \262)\262*\262)\207" [ispell-async-processp ispell-process ispell-session-buffer ispell-output-buffer ispell-cmd-args ispell-process-directory process-send-string 0 (42 64 126 43 45 33 37) nil ispell-get-coding-system erase-buffer apply ispell-call-process-region "-a" "" "-m" match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 looking-at "@(#) " error "Ispell error: %s" buffer-substring-no-properties "\n" (0 nil) t "^\\*" default-directory coding-system-for-read coding-system-for-write ispell-program-name ispell-really-hunspell] 21 (#$ . 56950)])
#@1325 Check spelling of word under or before the cursor.
If the word is not found in dictionary, display possible corrections
in a window allowing you to choose one.
If optional argument FOLLOWING is non-nil or if `ispell-following-word'
is non-nil when called interactively, then the following word
(rather than preceding) is checked when the cursor is not over a word.
When the optional argument QUIETLY is non-nil or `ispell-quietly' is non-nil
when called interactively, non-corrective messages are suppressed.
With a prefix argument (or if CONTINUE is non-nil),
resume interrupted spell-checking of a buffer or region.
Interactively, in Transient Mark mode when the mark is active, call
`ispell-region' to check the active region for spelling errors.
Word syntax is controlled by the definition of the chosen dictionary,
which is in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'.
This will check or reload the dictionary. Use \[ispell-change-dictionary]
or \[ispell-region] to update the Ispell process.
Return values:
nil word is correct or spelling is accepted.
0 word is inserted into buffer-local definitions.
"word" word corrected from word list.
("word" arg) word is hand entered.
quit spell session exited.
(fn &optional FOLLOWING QUIETLY CONTINUE REGION)
(defalias 'ispell-word #[1024 "\211\203 \306 \203 \307\310 \311 \"\207\203 \312 \207\313 \210\314 \210`\315!\316\211\211\211\211A@\262AA@\262@\262 \204B \317\320!\"\210\321!\262\322=\203^ \204;\317\323!\"\210\202;;\203w \204;\317\324!!#\210\202;\204\216 \317\325!\326 !\n\206\211 \327$\210\202; \203\240 \330 \210\317\331!\"\210\202;\332 \333\334\335\336\337!\340\"\341$\216\342AA@AAA@@ %\262)\210\211\334\232\203\322 \343@!\210\2021\211\2031\211:\204\337 \211\202\341 \211@\262GZZ\\\262@\232\204b\210c\210`|\210`\262`\262\211:\2031\211A@\203(\332 \333\334\335\336\337!\344\"\341$\216\345\322#\210)\210b\210\307\"?\346
!\203;\347
!\210\350*!\210\f\203I\316\351\262b\210\207" [ispell-format-word-function ispell-program-name ispell-current-dictionary ispell-check-only ispell-quit ispell-choices-buffer use-region-p ispell-region region-beginning region-end ispell-continue ispell-set-spellchecker-params ispell-accept-buffer-local-defs ispell-get-word nil message "Checking spelling of %s..." ispell--run-on-word t "%s is correct" "%s is correct because of root %s" "Error checking word %s using %s with %s dictionary" file-name-nondirectory "default" beep "%s is incorrect" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 ispell-command-loop ispell-add-per-file-word-list [set-window-configuration] query-replace get-buffer kill-buffer ispell-pdict-save quit ispell-silently-savep] 18 (#$ . 58087) (list ispell-following-word ispell-quietly current-prefix-arg t)])
#@32 Run ispell on WORD.
(fn WORD)
(defalias 'ispell--run-on-word #[257 "\301\302!\210\301\303\304Q!\210\305 \210@\306\230\203 A\211\2051 <\2051 G\307V\203- \310\311\"\207\312@!\207" [ispell-filter ispell-send-string "%\n" "^" "\n" ispell-accept-output "" 1 error "Ispell and its process have different character maps: %s" ispell-parse-output] 6 (#$ . 61033)])
#@70 Return a string describing that checking for WORD failed.
(fn WORD)
(defalias 'ispell-error-checking-word #[257 "\303\304!\305 !\n\206
\306$\207" [ispell-format-word-function ispell-program-name ispell-current-dictionary format "Error checking word %s using %s with %s dictionary" file-name-nondirectory "default"] 6 (#$ . 61405)])
#@222 Return t if the word at point is correct, nil otherwise.
If optional argument FOLLOWING is non-nil then the following
word (rather than preceding) is checked when the cursor is not
over a word.
(fn &optional FOLLOWING)
(defalias 'ispell-correct-p #[256 "\212\301\302!\211@\303!\211\204 \304\305!!\210\211\306=\206 \211;\266\203)\207" [ispell-filter nil ispell-get-word ispell--run-on-word error ispell-error-checking-word t] 7 (#$ . 61748)])
#@622 Return the word for spell-checking according to ispell syntax.
If optional argument FOLLOWING is non-nil or if `ispell-following-word'
is non-nil when called interactively, then the following word
(rather than preceding) is checked when the cursor is not over a word.
Optional second argument contains otherchars that can be included in word
many times (see the doc string of `ispell-dictionary-alist' for details
about otherchars).
Word syntax is controlled by the definition of the chosen dictionary,
which is in `ispell-local-dictionary-alist' or `ispell-dictionary-alist'.
(fn FOLLOWING &optional EXTRA-OTHERCHARS)
(defalias 'ispell-get-word #[513 "\301 \210\302 \303 \304 \305 \306\307\230?\205 \310P\205 \310P\311\204- \n\2031 \312\2022 \310\260\313\211\211\211\211\314\n!\204V \203O \315\nd\316#\210\202V \317\ne\316#\210\317 e\320#\210\307\230\204k \314!\204w \n\203\312 \314 !\203\312 o\204\312 \203\204 \203\312 `=\204\312 \n\203\252 \314 !\203\252 \321u\210\314\n!\203] \317 e\322#\210\202] \316\262`\262\321u\210\314\n!\203\304 \317 e\322#\210\202] \323u\210\202] \315d\316#\204\344 \203\336 \307``E\202\370 \324\325!\202\370 \326\327\224!\262\330 \262\331\"\262\211E\207" [ispell-check-only ispell-set-spellchecker-params ispell-get-casechars ispell-get-not-casechars ispell-get-otherchars ispell-get-many-otherchars-p "+\\(" "" "?" "+\\)" "*" nil looking-at re-search-forward t re-search-backward start -1 move 1 user-error "No word found to check!" copy-marker 0 point-marker buffer-substring-no-properties] 16 (#$ . 62205)])
#@132 Check to see if the personal dictionary has been modified.
If so, ask if it needs to be saved.
(fn &optional NO-QUERY FORCE-SAVE)
(defalias 'ispell-pdict-save #[512 "\203\f <\203\f @\204 \211\203& \204 \301\302!\203& \303\304!\210\305\306!\210\307\211\207" [ispell-pdict-modified-p y-or-n-p "Personal dictionary modified. Save? " ispell-send-string "#\n" message "Personal dictionary saved." nil] 4 (#$ . 63804) (list ispell-silently-savep t)])
#@126 A normal hook invoked from the ispell command loop.
It is called once per iteration, before displaying a prompt to
the user.
(defvar ispell-update-post-hook nil (#$ . 64267))
#@703 Display possible corrections from list MISS.
GUESS lists possibly valid affix construction of WORD.
Returns nil to keep word.
Returns 0 to insert locally into buffer-local dictionary.
Returns string for new chosen word.
Returns list for new replacement word (will be rechecked).
Query-replace when list length is 2.
Automatic query-replace when second element is `query-replace'.
Highlights the word, which is assumed to run from START to END.
Global `ispell-pdict-modified-p' becomes a list where the only value
indicates whether the dictionary has been modified when option `a'
or `i' is used.
Global `ispell-quit' set to start location to continue spell session.
(fn MISS GUESS WORD START END)
(defalias 'ispell-command-loop #[1285 "\306 ^\307\310\311\211\211\211Cr\312\n!q\210\313\f\314 \206 \315\316\317\f!\260\311@\320 \210\f\203_ \321\322\261\210\f\203Z \323\324i@G#\325 V\203K \326c\210\f@\327\261\210\fA\262
\2025 \330\331!c\210\203\255 \323\332i\n@G\f\333V\203v \334\202w \310$\325 V\203\201 \335c\210>\203\225 T\262 T\262\202\201 \336 \337\n@\340\261\210A\262T\262 \202_ \341 \306#\262 )\342\343!\210\344\n!\204\306 \345\310!\210\211\346 \240\210\347 \210\350\242!\210\351\310\352\353\354#\355\"\332$\216A\203\361 \356 \357#\210\360 \210\311 B\361\362!\210)\357\211 C\311\262\310\262\211\2036\363!\2046\364 \262\363!\2061\365!\2051\366 \367\370!\211@\262!=\262\202D\204E\211\203E\332U\203K\371\262\311D)\266\211\203l\211@\306V\203e\211@W\203eT\262\211A\262\202O\341\306#\262\210\372U\203\311\202\324\373U\203\236\374\375
\335Q!\210\376EF\203\232\377 !\210\311\202\324\201Q U\204\256\201R U\203\367\374\201S
\335Q!\210 G\235\203\305G\202\312 GBGF\203\326\377 !\210H\204\341\201T HE\204\353ECE\201R U\205\324\310\202\324\201U U\204\201V U\203_A\201W =\203\356 \311\357$\210\201V U\204&I\203:\201X \201Y \201Z \"
\"\357D\202E\201X \201[
\"\311BA\201W =\203Y\356\f\f\311\201W $\210\211\262\202\324\201\\ U\204vJU\204v\201] U\203\245A\201W =\203\210\356 \311\357$\210\201^ \210A\201W =\203\241\356 \311\201W $\210\357\202\324\201_ U\203\301\201` K!\210\361\201a !\210\357L\311\202\324\371U\203\341\201` K!\210\361\201b \330\201c !\"\210\nL\311\202\324\201d U\203
\201e \201f !\203 \201g \357!\210M?\206 `L\311\211E\202\324\357\202\324\201h U\203\332A\201W =\203'\356 \311\357$\210\201X \201i
\"\211\203\301r\312\n!q\210\320 \210\306\262\n\310\262\313\201j N\206OOR\201k !\262\262 \203\252\323\332i @G
\333V\203s\334\202t\310$\325 V\203~\335c\210 >\203\222 T\262\nT\262\202~\336\n\337 @\340\261\210A\262 T\262\n\202\\\341\n\306#\262\n)\346 \240\210\347 \210\350\242!\210\210A\201W =\203\326\356 \311\201W $\210\357\202\324\201l U\203\364\374\375
\227\335Q!\210\201m E\311\202\324\201n U\203\374\375\201X \201o \"\335Q!\210\201p E \311B\202\324\310Y\203; W\203;I\20348\201q D\202\3248\202\324\201r U\203L\201s \210\357\202\324\201t U\203\271\201u P!\203q\361\201v !\210\201w \210\345\201x !\210\202\262P \311\223\210A\203\204\356 \"\210\201y \216\361\201b \330\201z !\"\210\201{ \351\310\201| \353\354!\201} \"\201x $\216\212\201~ \210*\210) \311D\202\324\201 U\203\316\201\200 \201\201 ! \210\357\202\324\201\202 \210\357\211\262\357=\204\361 *\207" [window-min-height ispell-choices-win-default-height ispell-choices-buffer ispell-current-dictionary ispell-program-name mode-line-format 48 (32 105 97 65 114 82 63 120 88 113 108 117 109) 0 nil get-buffer-create "-- %b -- word: " " -- dict: " "default" " -- prog: " file-name-nondirectory erase-buffer "Affix rules generate and capitalize " "this word as shown below:\n " + 4 window-width "\n " " " substitute-command-keys "\nUse option `i' to accept this spelling and put it in your private dictionary.\n" 7 126 3 "\n" "(" ") " " " - run-hooks ispell-update-post-hook pos-visible-in-window-group-p sit-for selected-window ispell-show-choices select-window make-byte-code " \205 \304 \305\306\307\310\311!\312\"\313$\216\314\302\242!\210\315\300\301\")\262\207" vconcat vector [ispell-highlight-p current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 select-window ispell-highlight-spelling-error] ispell-highlight-spelling-error t undo-boundary message "C-h or ? for more options; SPC to leave unchanged, Character to replace word" characterp read-key mouse-event-p selected-frame window-frame event-start 88 32 105 ispell-send-string "*" (t) flyspell-unhighlight-at horizontal-scroll-bar ispell-highlight-p message-log-max inhibit-quit quit-flag ispell-pdict-modified-p flyspell-mode ispell-buffer-session-localwords ispell-buffer-local-name ispell-query-replace-choices help-char ispell-silently-savep ispell-quit ispell-checking-message ispell-complete-word-dict ispell-alternate-dictionary ispell-recursive-edit-marker 97 65 "@" buffer-name 114 82 block read-string format "Query-replacement for %s: " "Replacement for: " 63 8 ispell-help 120 ispell-pdict-save "Exited spell-checking" "%s" "Spell-checking suspended; use \\[universal-argument] \\[ispell-word] to resume" 113 y-or-n-p "Really kill Ispell process? " ispell-kill-ispell 108 "Lookup string (`*' is wildcard): " " -- word-list: " ispell-lookup-words 117 (t) 109 "Insert: " (t) query-replace 12 redraw-display 18 marker-position "Only one recursive edit session supported" beep 2 #[0 "b\210\301!p\232\204 \302\211\223\210\303\304!\210\302\211\223\207" [ispell-recursive-edit-marker marker-buffer nil error "Cannot continue ispell from this buffer."] 3] "Exit recursive edit with \\[exit-recursive-edit]" current-window-configuration "\301\300!\207" [set-window-configuration] recursive-edit 26 key-binding "" ding] 22 (#$ . 64449)])
#@46 Show the choices in another buffer or frame.
(defalias 'ispell-show-choices #[0 "\203 \302\303!\203 \303\304 !!\210\305\306 !\207\307\310 !!\207" [ispell-use-framepop-p ispell-choices-buffer fboundp framepop-display-buffer get-buffer select-window previous-window ispell-display-buffer get-buffer-create] 3 (#$ . 70401)])
#@1043 Display a list of the options available when a misspelling is encountered.
Selections are:
DIGIT: Replace the word with a digit offered in the *Choices* buffer.
SPC: Accept word this time.
`i': Accept word and insert into private dictionary.
`a': Accept word for this session.
`A': Accept word and place in `buffer-local dictionary'.
`r': Replace word with typed-in value. Rechecked.
`R': Replace word with typed-in value. Query-replaced in buffer. Rechecked.
`?': Show these commands.
`x': Exit spelling buffer. Move cursor to original point.
`X': Exit spelling buffer. Leaves cursor at the current point, and permits
the aborted check to be completed later.
`q': Quit spelling session (Kills ispell process).
`l': Look up typed-in replacement in alternate dictionary. Wildcards okay.
`u': Like `i', but the word is lower-cased first.
`m': Place typed-in value in personal dictionary, then recheck current word.
`C-l': Redraw screen.
`C-r': Recursive edit.
`C-z': Suspend Emacs or iconify frame.
(defalias 'ispell-help #[0 "\302=\203 \303\304!\210\305\306!\207\307\310\311\312 \313\314\315\316\317!\320\"\321$\216\203E \322\323!r\211q\210\324\324\260c\210)\325!\210\326\327!\210\330\323!\262\202f \331\216\332\333\334 !\210\335 \210\336\337!\210\340\321!\210\324\324\260c\210\326\327!*)\262\207" [ispell-help-in-bufferp resize-mini-windows electric require ehelp with-electric-help #[0 "\300\301!\210\302\207" [princ "Selections are:\n\nDIGIT: Replace the word with a digit offered in the *Choices* buffer.\nSPC: Accept word this time.\n`i': Accept word and insert into private dictionary.\n`a': Accept word for this session.\n`A': Accept word and place in `buffer-local dictionary'.\n`r': Replace word with typed-in value. Rechecked.\n`R': Replace word with typed-in value. Query-replaced in buffer. Rechecked.\n`?': Show these commands.\n`x': Exit spelling buffer. Move cursor to original point.\n`X': Exit spelling buffer. Leaves cursor at the current point, and permits\n the aborted check to be completed later.\n`q': Quit spelling session (Kills ispell process).\n`l': Look up typed-in replacement in alternate dictionary. Wildcards okay.\n`u': Like `i', but the word is lower-cased first.\n`m': Place typed-in value in personal dictionary, then recheck current word.\n`C-l': Redraw screen.\n`C-r': Recursive edit.\n`C-z': Suspend Emacs or iconify frame." nil] 2] "[r/R]eplace word; [a/A]ccept for this session; [i]nsert into private dictionary" "[l]ook a word up in alternate dictionary; e[x/X]it; [q]uit session" "[u]ncapitalized insert into dict. Type `x C-h f ispell-help' for more help" current-window-configuration make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 2 get-buffer-create "*Ispell Help*" "\n" ispell-display-buffer sit-for 5 kill-buffer #[0 "\300 \207" [erase-buffer] 1] grow-only select-window minibuffer-window erase-buffer message nil enlarge-window] 10 (#$ . 70734)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias lookup-words ispell-lookup-words nil make-obsolete "24.4"] 4)
#@441 Look up WORD in optional word-list dictionary LOOKUP-DICT.
A `*' serves as a wild card. If no wild cards, `look' is used if it exists.
Otherwise the variable `ispell-grep-command' contains the command
(usually "grep") used to search for the words.
Optional second argument contains the dictionary to use; the default is
`ispell-alternate-dictionary', overridden by `ispell-complete-word-dict'
if defined.
(fn WORD &optional LOOKUP-DICT)
(defalias 'ispell-lookup-words #[513 "\211\204 \206 \262\211\203 \306!\204! \307\310\"\210\202! \307\311!\210\n\312\313\"\f\2051
\2061 \211?\211\203: *\202< +\203E ,\202G -\314\211\211\315\316!r\211q\210\317\320\321\322\323!\324\"\325$\216\326\327\330!\"\210\204\220 \331\n\261\210\204x \332c\210\333c\210\334\332\314\335#\203\211 \336c\210\202{ \337 \262\n\340 \210\341\342\314\335\314\n\203\252 \nG\320V\203\252 \nC\202\262 \f?\205\262 \343CC\244\205\276 C\244&\262;\203\325 \307\344\330!#\210\202\373 db\210o\204\345 h\345U\204\345 \345c\210o\204\373 `\262\346y\210\347`S\"B\262\202\345 *\210\203\312\350@\"\203\307\351+@#\210)\207" [ispell-complete-word-dict ispell-alternate-dictionary ispell-use-ptys-p process-connection-type ispell-look-p ispell-have-new-look file-readable-p error "lookup-words error: Unreadable or missing plain word-list %s." "lookup-words error: No plain word-list found at systemdefault locations. Customize `ispell-alternate-dictionary' to set yours." string-match "\\*" nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 message "Starting \"%s\" process..." file-name-nondirectory "^" "*" "$" search-backward t "." buffer-string erase-buffer apply ispell-call-process "-e" "error: %s exited with signal %s" 10 -1 buffer-substring-no-properties ".+: " "%s error: %s" ispell-look-command ispell-grep-command ispell-look-options ispell-grep-options] 18 (#$ . 73899)])
#@73 Output filter function for ispell, grep, and look.
(fn PROCESS OUTPUT)
(defalias 'ispell-filter #[514 "\302\303\304\205X \305\306#\262\203+ \203+ <\203+ \211@\307#P\240\210\2023 \307# B\211\204? \303\304\262\202 \304\211T\262\211GU\203R \304\262\202 \211\262\202 \207" [ispell-filter-continue ispell-filter 0 t nil string-match "\n" substring] 11 (#$ . 75874)])
#@391 Highlight the word from START to END with a kludge using `inverse-video'.
When the optional third arg HIGHLIGHT is set, the word is highlighted;
otherwise it is displayed normally.
Uses block cursor to highlight one character.
Optional REFRESH will unhighlighted then highlight, using block cursor
highlighting when REFRESH is equal to `block'.
(fn START END &optional HIGHLIGHT REFRESH)
(defalias 'ispell-highlight-spelling-error-generic #[1026 "\305=\203 \211\305=\204 T\262\306 \307\310\"\311\211b\210|\210\312\313 Z\"\210\314\315!\210\203< \f?|\210\211c\210\314\315!\210\204S b\210\202a \f?\305=\203a Sb\210\316!\210\205} \317\305=\203u \202y \320Z\311#+\207" [ispell-highlight-p buffer-undo-list inhibit-quit buffer-read-only inverse-video block buffer-modified-p nil buffer-substring-no-properties t insert-char 32 sit-for 0 set-buffer-modified-p ispell-highlight-spelling-error-generic 2] 11 (#$ . 76271)])
#@276 Highlight the word from START to END using overlays.
When the optional third arg HIGHLIGHT is set, the word is highlighted
otherwise it is displayed normally.
The variable `ispell-highlight-face' selects the face to use for highlighting.
(fn START END &optional HIGHLIGHT)
(defalias 'ispell-highlight-spelling-error-overlay #[770 "\211\203& \203 \306p$\210\202. \307\"\310\311\312#\210\310\313 #\210\202. \203. \314!\210\n\205u \315\316!\205u \211\203l \317\320\321\"!\317Q\322\323\211\322\323 \324\315\325!\205` \315\326!\205h \".\207\316!\210\323\211\207" [ispell-overlay ispell-highlight-face ispell-lazy-highlight isearch-error isearch-other-end isearch-forward move-overlay make-overlay overlay-put priority 1001 face delete-overlay boundp lazy-highlight-cleanup "\\b" regexp-quote buffer-substring-no-properties t nil isearch-lazy-highlight-new-loop reg-start reg-end isearch-case-fold-search isearch-regexp-function isearch-regexp isearch-string isearch-lazy-highlight-last-string] 10 (#$ . 77236)])
#@46
(fn START END &optional HIGHLIGHT REFRESH)
(defalias 'ispell-highlight-spelling-error #[1026 "\300 \203 \301#\207\302$\207" [display-color-p ispell-highlight-spelling-error-overlay ispell-highlight-spelling-error-generic] 9 (#$ . 78286)])
#@110 Show BUFFER in new window above selected one.
Also position fit window to BUFFER and select it.
(fn BUFFER)
(defalias 'ispell-display-buffer #[257 "\301\302\303 !\236A\304!\206T \211\2036 \303 \305\306\"\210\3071* \310\311\312 !@[\313#0\202, \210\314\305\315\"\210\262\206T \211\204Q \3161L \310\311\312 !@[\313#0\202N \210\314\206T \317!\211\204^ \320\321!\202u \322!\210\323\"\210\324e\"\210\325\314\211\211\211\326&\207" [ispell-choices-win-default-height unsplittable frame-parameters selected-frame get-buffer-window modify-frame-parameters ((unsplittable)) (error) split-window last selected-window-group above nil ((unsplittable . t)) (error) display-buffer error "Couldn't make window for *Choices*" select-window set-window-buffer set-window-point fit-window-to-buffer t] 10 (#$ . 78542)])
#@670 Parse the OUTPUT string from Ispell process and return:
1: t for an exact match.
2: A string containing the root word matched via suffix removal.
3: A list of possible correct spellings of the format:
("ORIGINAL-WORD" OFFSET MISS-LIST GUESS-LIST)
ORIGINAL-WORD is a string of the possibly misspelled word.
OFFSET is an integer giving the line offset of the word.
MISS-LIST and GUESS-LIST are possibly null lists of guesses and misses.
4: nil when an error has occurred.
Optional second arg ACCEPT-LIST is list of words already accepted.
Optional third arg SHIFT is an offset to apply based on previous corrections.
(fn OUTPUT &optional ACCEPT-LIST SHIFT)
(defalias 'ispell-parse-output #[769 "\300\230\203 \301\207\302\230\203 \301\207\303\230\203 \301\207\304H\305=\203% \306\307\"\207\310\311\"\304\232\203< \312 \210\313\314\"\210\315\316!\210\317\207\304H\306\307\310\320\307##\304\317\211\211\211\306\n\304\225\"\262\n\321=\203c \304\262\202v \322\n!\262\306\n\310\320
\323#T\"\262\n\322\n!\262\321=?\205\217 \306\n\310\320
\323#T\"\262\n \203\317 \310\324 \"T\262V\203\262 \306 \304#B\262\202\274 \306 \304#B\262\323\225?\205\311 \306 \307\\\"\262 \210\202\221 \235\203\332 \301\202\356 \247\203\350 \\\202\351 \237\237F\207" ["" t "*" "-" 0 43 substring 2 string-match "[
a-zA-Z]" ding message "Ispell error: %s" sit-for 5 nil " " 35 string-to-number 1 ", \\|\\($\\)"] 16 (#$ . 79362)])
#@115 Return the status of the Ispell process.
When asynchronous processes are not supported, `run' is always returned.
(defalias 'ispell-process-status #[0 "\203 \302 !\207 \205
\303\207" [ispell-async-processp ispell-process process-status run] 2 (#$ . 80833)])
#@143 Start the Ispell process, with support for no asynchronous processes.
Keeps argument list for future Ispell invocations for no async support.
(defalias 'ispell-start-process #[0 "\203 \306 \n\"A@\204 \307 !\210\310 !\203 \202 \311\312!\313 \314 \2050 \315\235?\2050 \315 D\f\2058 \316\fD
\205Q \203J
\317\320 !\226D\202Q
\317\320 !PC %\321 \203x ! \"\322\323\324\321#\325\203o \326\202p \327&)\202\212 \211$\330\331!%\330\332!&\333\334!\210\335)\207" [ispell-really-hunspell ispell-current-dictionary ispell-dictionary-alist default-directory ispell-current-personal-dictionary ispell-encoding8-command assoc ispell-hunspell-fill-dictionary-entry file-accessible-directory-p expand-file-name "~/" ispell-get-ispell-args append "-d" "-p" symbol-name ispell-get-coding-system nil apply start-process "ispell" "-a" "" "-m" generate-new-buffer " *ispell-output*" " *ispell-session*" ispell-send-string "\n" t ispell-extra-args ispell-buffer-local-name ispell-async-processp ispell-use-ptys-p process-connection-type ispell-program-name ispell-cmd-args ispell-output-buffer ispell-session-buffer] 10 (#$ . 81101)])
#@56 Check status of Ispell process and start if necessary.
(defalias 'ispell-init-process #[0 "\306\307 \235A@\206\n \2042 \n\2042 \310 !\2032 \311 \312P!\204- \311 \313\206( \314Q!\2032 \315 \2038 \316\317!\202; \316 !\f\203a \320 \321=\203a
\204W 7\204W 8 \232\203a \322\211$\2119\202>\323\324!\210\325\326\327:;\206u <\206u \314#!\330\331!\210\332 = 8\333 \322\211$9\334!\2668\316\317!\232\204\261 r\315 \203\246 \335\336 !\202\247 pq\210\337\340\341\322\342$\210)>\203\273 \343\f\344\"\210?\203\315 >\203\315 \345\f\346 \346 #\210\347\350!\210$\204\332 \347\350!\210$\204\350 \351\352:\"\210\202%$@;\203\353\354$@\"\203\347\350!\210$@;\202$A?\203\353\355$@\"\204%\356\357!\210\347\350!\210\351\360\361\362$\363#\"\210\322$\364 \211\2034\365\363P!\210\210>\205>\366\f\322\")\207" [ispell-current-dictionary ispell-really-aspell ispell-really-hunspell default-directory ispell-process ispell-local-pdict "-d" ispell-get-ispell-args file-accessible-directory-p file-readable-p ".ispell_words" ".ispell_" "default" window-minibuffer-p expand-file-name "~/" ispell-process-status run nil ispell-kill-ispell t make-progress-reporter format "Starting new Ispell process %s with %s dictionary..." sit-for 0 ispell-check-version ispell-start-process progress-reporter-done window-buffer minibuffer-selected-window add-hook kill-buffer-hook #[0 "\300\301!\207" [ispell-kill-ispell t] 2] local set-process-filter ispell-filter set-process-coding-system ispell-get-coding-system ispell-accept-output 3 error "%s did not output version line" string-match "warning: " "^@(#) " sleep-for 1 "%s" mapconcat identity "\n" ispell-get-extended-character-mode ispell-send-string set-process-query-on-exit-flag ispell-personal-dictionary ispell-process-directory ispell-filter-continue ispell-program-name ispell-local-dictionary ispell-dictionary ispell-library-directory ispell-async-processp enable-multibyte-characters] 8 (#$ . 82243)])
#@215 Kill current Ispell process (so that you may start a fresh one).
With NO-ERROR, just return non-nil if there was no Ispell running.
With CLEAR, buffer session localwords are cleaned.
(fn &optional NO-ERROR CLEAR)
(defalias 'ispell-kill-ispell #[512 "\305\306!\210\211\204 \307\310!\203 \311 \203 \312 \313=\204# \206E \314\315!\207\n\203. \316 !\210\202> \317\320!\210\321 !\210\321\f!\210\311\211\311\322\323!\210\311\207" [ispell-buffer-session-localwords ispell-process ispell-async-processp ispell-output-buffer ispell-session-buffer run-hooks ispell-kill-ispell-hook called-interactively-p interactive nil ispell-process-status run error "There is no Ispell process running!" delete-process ispell-send-string "\n" kill-buffer message "Ispell process killed"] 5 (#$ . 84217) nil])
#@37 Hook run after changing dictionary.
(defvar ispell-change-dictionary-hook nil (#$ . 85018))
#@253 Change to dictionary DICT for Ispell.
With a prefix arg, set it "globally", for all buffers.
Without a prefix arg, set it "locally", just for this buffer.
By just answering RET you can find out what the current dictionary is.
(fn DICT &optional ARG)
(defalias 'ispell-change-dictionary #[513 "\306 \210\211\204 \307\310!\210\311\232\203 \312\262\313\232\2032 \314 \210\315\316\204' \206, \206, \311\"\210\317\320!\207\204; \206@ \206@ \311\232\203R \314 \210\321\322!\205\213 \315\323\"\207\324\n\"\204` \324 \"\203p \211\203i \202u \325\202u \326\327\"\210\314 \210\312\315\330\203\204 \331\202\205 \332#\210\317\320!\207" [ispell-local-dictionary ispell-dictionary ispell-local-dictionary-alist ispell-dictionary-alist ispell-local-dictionary-overridden ispell-buffer-session-localwords ispell-set-spellchecker-params ispell-buffer-local-dict no-reload "default" nil "" ispell-internal-change-dictionary message "Using %s dictionary" run-hooks ispell-change-dictionary-hook called-interactively-p interactive "No change, using %s dictionary" assoc t error "Undefined dictionary: %s" "%s Ispell dictionary set to %s" "Global" "Local"] 6 (#$ . 85117) (byte-code "\301\302\303\304!\205
\305\306\304 \"\307\310$D\207" [current-prefix-arg completing-read "Use new dictionary (RET for current, SPC to complete): " fboundp ispell-valid-dictionary-list mapcar list nil t] 5)])
#@147 Update the dictionary and the personal dictionary used by Ispell.
This may kill the Ispell process; if so, a new one will be started
when needed.
(defalias 'ispell-internal-change-dictionary #[0 "\206 \n\206\n \211\205 \306!\f\232\205
\232?\205' \307\310!\210\211\211\207" [ispell-local-dictionary ispell-dictionary ispell-local-pdict ispell-personal-dictionary ispell-current-dictionary ispell-current-personal-dictionary expand-file-name ispell-kill-ispell t] 5 (#$ . 86523)])
#@207 Interactively check a region for spelling errors.
Return nil if spell session was terminated, otherwise returns shift offset
amount for last line processed.
(fn REG-START REG-END &optional RECHECKP SHIFT)
(defalias 'ispell-region #[1026 "\306 \210\204\n \307 \210\310 \310 eU\203 dU\203 \311 \202 \312\313! \206( \314\315\316\317\320\321 \n\n\n\n\n&\322\"\323$\216\212\324\325$\210\326 \315\316\327\320\321!\330\"\331$\216 b\210\332\n\333\332\211\334\335 \336 D\337\304!\205} r\fq\210db\210\340\341#c)\266\342\336 \333#\203\306 \343\316!\262\n`GZ\332\223\210b\210\344\212\fb\210`)\345!\212b\210i)F\337\304!\205\304 r\fq\210db\210\340\341#c)\266\346D\337\304!\205\340 r\fq\210db\210\340\341#c)\266 \332\223\210
\332\223\2102\204 `
W\203 \347 !\203\232\n`X\203\232`\2623\205,4\203 4\350\230\205,\212\351 \210\3423\333#)\205,3\262\352!\210 `\332\223\210\205B\353 \"\262
W\203\224\342\336
\333#\203\224\343\316!\262\n`GZ\332\223\210 b\210\354\212\fb\210`)\345!\212b\210i)F\337\304!\205\217r\fq\210db\210\340\341#c)\266\202\232\n\332\211\223\210`\347\f!\203\251
^\202\254\347
!]\262` 5\355 ^ 6\205\305\356\230?\205\305\35756#\36056\355 \257\337\304!\205\357r\fq\210db\210\340\341#c)\266\203\3775GZ5\332\262`6\211\203\361\205\"\2626b\210*\266\202\357 *\266)\2102?\205,\206,\316*\207" [ispell-program-name ispell-current-dictionary case-fold-search transient-mark-mode ispell-debug-buffer ispell-region-end ispell-set-spellchecker-params ispell-accept-buffer-local-defs make-marker buffer-name "region" file-name-nondirectory "default" make-byte-code 0 "\300\203 \204 \306!\203 \307!\210\301\310\211\223\210\302\310\211\223\210\203S \247\2043 \310\211\223\210\2027 b\210\203I \247\203I \310\311\312!\210\300?\205h \310\211\207\300\204] \310\211\223\210\313!\210\314\315\303\304\305$\207" vconcat vector [get-buffer kill-buffer nil error "Message send aborted" ispell-pdict-save message "Spell-checking %s using %s with %s dictionary...done" ispell-keep-choices-win ispell-choices-buffer ispell-quit ispell-region-end ispell-checking-message ispell-silently-savep] 5 message "Spell-checking %s using %s with %s dictionary..." current-window-configuration "\301\300!\207" [set-window-configuration] 2 nil t "ispell-region: (ispell-skip-region-list):\n%s\nispell-region: (ispell-begin-skip-region-regexp):\n%s\nispell-region: Search for first region to skip after (ispell-begin-skip-region-regexp)\n" ispell-skip-region-list ispell-begin-skip-region-regexp boundp apply format re-search-forward match-string-no-properties "ispell-region: First skip: %s at (pos,line,column): (%s,%s,%s).\n" line-number-at-pos "ispell-region: Continue spell-checking with %s and %s dictionary...\n" marker-position "" beginning-of-line ispell-skip-region ispell-ignore-fcc "ispell-region: Next skip: %s at (pos,line,column): (%s,%s,%s).\n" point-at-eol "dnl " ispell-get-line "ispell-region: string pos (%s->%s), eol: %s, [in-comment]: [%s], [add-comment]: [%s], [string]: [%s]\n" ispell-process-line ispell-quit comment-start comment-end ispell-start ispell-end] 24 (#$ . 87022) "r"])
#@210 Return a regexp of the search keys for region skipping.
Includes `ispell-skip-region-alist' plus tex, tib, html, and comment keys.
Must be called after `ispell-buffer-local-parsing' due to dependence on mode.
(defalias 'ispell-begin-skip-region-regexp #[0 "\306\307\310\311\205 \312=?\205 \306\313\314# \315=\205 \316 \n\205# \317 !\f\205(
\320=\205C \205C \321\230\203? \322\202C \323!?\205R \205R \323!\205[ \317!\324 \257\"\314#\207" [ispell-checking-message ispell-parser ispell-skip-html ispell-html-skip-alists ispell-skip-tib ispell-tib-ref-beginning mapconcat identity delq nil t car "\\|" tex ispell-begin-tex-skip-regexp ispell-begin-skip-region exclusive "" "^" regexp-quote ispell--make-filename-or-URL-re ispell-check-comments comment-start comment-end ispell-skip-region-alist] 12 (#$ . 90272)])
#@179 Regular expression for start of regions to skip generated from SKIP-ALIST.
Each selection should be a key of SKIP-ALIST;
otherwise, the current line is skipped.
(fn SKIP-ALIST)
(defalias 'ispell-begin-skip-region #[257 "\300\301\302#\207" [mapconcat #[257 "\211@;\203 \211@\207\300@!\207" [eval] 3 "\n\n(fn LST)"] "\\|"] 5 (#$ . 91115)])
#@86 Regular expression of tex commands to skip.
Generated from `ispell-tex-skip-alists'.
(defalias 'ispell-begin-tex-skip-regexp #[0 "\301\302@\303#\303\301\304A@\303#Q\207" [ispell-tex-skip-alists mapconcat #[257 "\211@\207" [] 2 "\n\n(fn LST)"] "\\|" #[257 "\300@\301Q\207" ["\\\\begin[ \n]*{[ \n]*" "[ \n]*}"] 4 "\n\n(fn LST)"]] 6 (#$ . 91463)])
#@406 Return a list describing key and body regions to skip for this buffer.
Includes regions defined by `ispell-skip-region-alist', tex mode,
`ispell-html-skip-alists', and `ispell-checking-message'.
Manual checking must include comments and tib references.
The list is of the form described by variable `ispell-skip-region-alist'.
Must be called after `ispell-buffer-local-parsing' due to dependence on mode.
(defalias 'ispell-skip-region-list #[0 "\306\307 CC\"\262 \310=\203 \311\306 @ A@#\262\f\203& \306
\"\262 \2039 \312=\2049 \306 \"\262\211\207" [ispell-skip-region-alist ispell-parser case-fold-search ispell-tex-skip-alists ispell-skip-html ispell-html-skip-alists append ispell--make-filename-or-URL-re tex nil t ispell-checking-message] 5 (#$ . 91821)])
#@55 Skip across ARG number of braces.
(fn &optional ARG)
(defalias 'ispell-tex-arg-end #[256 "\3001 \301\302!\203 \303 \210\202 \303\206 \304!0\207\210\305\306`\"\210\307 \210\310\311!\207" [(error) looking-at "[ \n]*\\[" forward-sexp 1 message "Error skipping s-expressions at point %d." beep sit-for 2] 4 (#$ . 92603)])
#@267 Delete the Fcc: message header when large attachments are included.
Return value nil if file with large attachments is saved.
This can be used to avoid multiple questions for multiple large attachments.
Returns point to starting location afterwards.
(fn START END)
(defalias 'ispell-ignore-fcc #[514 "\304\203T \203T ZW\203T \305\211eb\210\306\307\310 !\311Q\305\304#\206. \306\312\305\304#\206. e\262eb\210\306\313\304#\203N \314\315!\203G \305\262\202N \316 \210\317\320!\210b\210)\266\211\207" [ispell-checking-message ispell-message-fcc-skip case-fold-search mail-header-separator t nil re-search-forward "^" regexp-quote "$" "^$" "^Fcc:" y-or-n-p "Save copy of this message with large attachments? " beginning-of-line kill-line 1] 9 (#$ . 92935)])
#@134 Skip across KEY and then to end of region.
Key lookup determines region to skip.
Point is placed at end of skipped region.
(fn KEY)
(defalias 'ispell-skip-region #[257 "\211Gu\210`\306 \307\211\204, \203, \230\203, \n\310\230\203# \307y\210\202\310 \311\n \312#\210\202\310 \313=\203E \203E \n\230\203E \311 \314#\210\202\310 \f\203[ \315
\"\203[ \316 \312#\210\202\310 \203\310 \317@@!\262\315\"\203\301 @A\262\204} \312\262\202\273 :\204\215 \316\317!d\312#\210\202\273 G\320U\203\244 @;\203\244 \316@d\312#\210\202\273 \312\262A:\203\267 \321@A\"\210\202\273 @ \210\307\262\202[ A\262\202[ `U\205\340 \211?\205\340 \322\323`#\210\324 \210\325\326!\207" [ispell-check-comments comment-start comment-end ispell-region-end ispell-skip-tib ispell-tib-ref-beginning ispell-skip-region-list nil "" search-forward t exclusive :end string-match re-search-forward eval 1 apply message "Matching region end for `%s' point %d not found" beep sit-for 2 ispell-tib-ref-end] 9 (#$ . 93708)])
#@93 Grab the next line of data.
Returns a string with the line data.
(fn START END IN-COMMENT)
(defalias 'ispell-get-line #[771 "\300 \301l\203
\301y\210\2022 \302\303#\204 \302\304\303#\203/ \305\306\"\307R\262b\210\2022 b\210\207" [ispell-get-casechars nil re-search-forward t "[][()${}]" "^" buffer-substring-no-properties "\n"] 10 (#$ . 94734)])
#@15
(fn STRING)
(defalias 'ispell-looking-at #[257 "\300 G`\\dX\205 \301\"\301\302``\\\"\"\232\207" [ispell-get-coding-system encode-coding-string buffer-substring-no-properties] 9 (#$ . 95100)])
#@274 Send STRING, a line of text, to ispell and process the result.
This will modify the buffer for spelling errors.
Requires variables ISPELL-START and ISPELL-END to be defined in its
dynamic scope.
Returns the sum SHIFT due to changes in word replacements.
(fn STRING SHIFT)
(defalias 'ispell-process-line #[514 "\306\211\247\204\n \307\262\310!\210\311 \210@\312\230\203 A\237 \204>\203>\313@#\262\2038<\2038\314\315\n\316A@#!@G\314 !\314\n!\306\211b\210\317 \210\\b\210\317 \210b\210\317 \210\320@!\204\231 @\321!\322!\212b\210i)\323F\324\304!\205\220 r\fq\210db\210\325\326#c)\266\327\330#\266
\203\275 \331AA@ AAA@\n@\321\n! \321\f!\\%\262\202\352 \332 \333\307\334\335\336!\337\"\340$\216\331 AA@\nAAA@ @\321 !\n\321
!\\%\262)\210b\210\211\203 \211<\203 \211G\340U\203 2\341=\203\342\343\344\f!\"\203\327\345!\210\202 `\306\223\210\306\346\262\211\203)\211\307\232\203@\211\307\232\2035\347@!\210@B\262\202\343``\\|\210\211<\204^\211c\210\350@\"\210\211B\262\202\331\211@\211c\210\350 @\"\210A@\203\214\332 \333\307\334\335\336!\351\"\340$\216\352 \210\353\n@@\346#\210)\210b\210\211\235\203\243\211B\262\211\262\202\330\3143!\262\306\307\262 \354\211G\\\346$\262 \n\204\304\307\262 3\306\223\210\211\306\211\223\210\306\262\262\210\210GZ\\\262 \204\371\306 4\355\356\3575!6\206\366\360#\210)\361\307!\210\321!\321!\204 \\W\203\\3U\203(3\\\306\223\210\306\211\223\210\306\211\223\210\306\211\223\266A\202 \207" [ispell-filter ispell-quit ispell-start ispell-end ispell-debug-buffer ispell-keep-choices-win nil 0 ispell-send-string ispell-accept-output "" ispell-parse-output copy-marker + -1 ispell-horiz-scroll ispell-looking-at marker-position line-number-at-pos "ispell-process-line: Ispell misalignment error:\n [Word from ispell pipe]: [%s], actual (point,line,column): (%s,%s,%s)\n" boundp apply format error "Ispell misalignment: word `%s' point %d; probably incompatible versions" ispell-command-loop current-window-configuration make-byte-code "\301\300!\207" vconcat vector [set-window-configuration] 2 tex string-match "[\\][]()[]\\|\\\\begin\\|\\$" regexp-quote "Don't start query replace on a line with math characters" t ispell-add-per-file-word-list ispell-send-replacement [set-window-configuration] delete-other-windows query-replace ispell-region message "Continuing spelling check using %s with %s dictionary..." file-name-nondirectory "default" sit-for ispell-parser ispell-region-end message-log-max ispell-program-name ispell-current-dictionary] 20 (#$ . 95308)])
#@71 Check comments and strings in the current buffer for spelling errors.
(defalias 'ispell-comments-and-strings #[0 "eb\210\300\211\211?\205O \301\262\302`d\300\211\303&\262\3048\204% \3058\203 `\302d\300\211\303&\262\3048\204> \3058\203B \306\307!\210\212\310`\"?\262)\210\202 \207" [nil t parse-partial-sexp syntax-table 3 4 error "Unterminated string or comment" ispell-region] 10 (#$ . 97974) nil])
#@61 Check the current buffer for spelling errors interactively.
(defalias 'ispell-buffer #[0 "\300ed\"\207" [ispell-region] 3 (#$ . 98398) nil])
#@149 `ispell-buffer' with some output sent to `ispell-debug-buffer'.
If APPEND is non-nil, don't erase previous debugging output.
(fn &optional APPEND)
(defalias 'ispell-buffer-with-debug #[256 "\301!\302 )\207" [ispell-debug-buffer ispell-create-debug-buffer ispell-buffer] 3 (#$ . 98546) nil])
#@69 Continue a halted spelling session beginning with the current word.
(defalias 'ispell-continue #[0 "\301!\204\n \302\303!\207\304!p\232\204 \302\305\306\304!!\"\207\307\310\311!A@\301!\"\207" [ispell-region-end marker-position message "No session to continue. Use `X' command when checking!" marker-buffer "Must continue ispell from buffer %s" buffer-name ispell-region ispell-get-word t] 5 (#$ . 98846) nil])
#@66 Place point within the horizontal visibility of its window area.
(defalias 'ispell-horiz-scroll #[0 "\2055 i\301 \302]Z\211\303W\203 \301 \303V\203 \304[\305]!\2023 \211\306 \307ZY\2053 \310\311\306 \312#\305]!\262\207" [truncate-lines window-hscroll 1 0 scroll-right 10 window-width 2 scroll-left - -3] 6 (#$ . 99268)])
#@219 Try to complete the word before or at point.
If optional INTERIOR-FRAG is non-nil, then the word may be a character
sequence inside of a word.
Standard ispell choices are then available.
(fn &optional INTERIOR-FRAG)
(defalias 'ispell-complete-word #[256 "`\305\306\307\"C\306\211\211\211\242A@\262\242AA@\262\211\242@\240\210\242\310\230\206< \311\205, \312\242\n\2055 \312Q \206; \n\"\262\313=\203K \314\315!\210\202\367 \204Y \314\316\242\"\210\202\367 \306\242\226\242\230\203m \317\320\"\262\202\214 \242\321H\226\242\321H=\203\214 \317\322\323\324\325\326\n!\327\"\330\331%\"\262\332 \322\321\333\325\326!\334\"\335$\216\336\306\242%\262)\210\211\321\232\203\271 \337\242!\210\202\355 \211\203\355 |\210:\204\313 \202\315 @\240\210\242GZZ\\\262\242c\210\211:\203\355 b\210\340\306\313\"\210\341 !\203\367 \342 !\210\343\f!\210b\207" [case-fold-search ispell-complete-word-dict ispell-alternate-dictionary ispell-choices-buffer ispell-silently-savep ispell-get-word nil "\\*" "" ispell-lookup-words "*" t message "No word to complete" "No match for \"%s\"" mapcar upcase 0 make-byte-code 257 "\300\242\301H\301H=\203\f \207\302!\207" vconcat vector [0 capitalize] 4 "\n\n(fn POS)" current-window-configuration "\301\300!\207" [set-window-configuration] 2 ispell-command-loop ispell-add-per-file-word-list ispell-word get-buffer kill-buffer ispell-pdict-save] 15 (#$ . 99602) "P"])
#@59 Completes word matching character sequence inside a word.
(defalias 'ispell-complete-word-interior-frag #[0 "\300\301!\207" [ispell-complete-word t] 2 (#$ . 101053) nil])
#@402 Interactively check a region or buffer for spelling errors.
If `transient-mark-mode' is on, and a region is active, spell-check
that region. Otherwise spell-check the buffer.
Ispell dictionaries are not distributed with Emacs. If you are
looking for a dictionary, please see the distribution of the GNU ispell
program, or do an Internet search; there are various dictionaries
available on the net.
(defalias 'ispell #[0 "\302\300!\203 \203 \302\301!\203 \203 \303\304 \305 \"\207\306 \207" [transient-mark-mode mark-active boundp ispell-region region-beginning region-end ispell-buffer] 3 (#$ . 101231) nil])
#@36 Keymap used for Ispell minor mode.
(defvar ispell-minor-keymap (byte-code "\300 \301\302\303#\210\301\304\303#\210\211\207" [make-sparse-keymap define-key " " ispell-minor-check "
"] 5) (#$ . 101855))
#@103 Non-nil if ISpell minor mode is enabled.
Use the command `ispell-minor-mode' to change this variable.
(defvar ispell-minor-mode nil (#$ . 102065))
(make-variable-buffer-local 'ispell-minor-mode)
#@679 Toggle last-word spell checking (Ispell minor mode).
If called interactively, enable ISpell minor mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
Ispell minor mode is a buffer-local minor mode. When enabled,
typing SPC or RET warns you if the previous word is incorrectly
spelled.
All the buffer-local variables and dictionaries are ignored. To
read them into the running Ispell process, type \[ispell-word]
SPC.
For spell-checking "on the fly", not just after typing SPC or
RET, use `flyspell-mode'.
(fn &optional ARG)
(defalias 'ispell-minor-mode #[256 "\301 \302=\203
?\202 \303!\304V\305\306\203 \307\202 \310\"\210\311\312!\203B \301 \2032 \211\301 \232\203B \313\314\315\203= \316\202> \317#\266\210\320 \210\207" [ispell-minor-mode current-message toggle prefix-numeric-value 0 run-hooks ispell-minor-mode-hook ispell-minor-mode-on-hook ispell-minor-mode-off-hook called-interactively-p any " in current buffer" message "ISpell minor mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 102267) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar ispell-minor-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [ispell-minor-keymap ispell-minor-mode-hook variable-documentation put "Hook run after entering or leaving `ispell-minor-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode ispell-minor-mode " Spell" nil] 6)
#@198 Check previous word, then continue with the normal binding of this key.
Don't check previous word when character before point is a space or newline.
Don't read buffer-local settings or word lists.
(defalias 'ispell-minor-check #[0 "\303\304`Sf\305\306\307 !!\210\211\310=\206- \211\311=\206- \n\203& \211\312=\206- \n\205- \211\313=?\2055 \314\303\304\"*\207" [ispell-check-only ispell-minor-mode ispell-skip-html nil t command-execute key-binding this-command-keys 32 10 62 59 ispell-word] 6 (#$ . 103935) "*"])
#@202 Text beyond which `ispell-message' will not spell-check.
If it is a string, limit is the first occurrence of that regular expression.
Otherwise, it must be a function which is called to get the limit.
(defvar ispell-message-text-end (mapconcat 'identity '("^-- $" "^#! /bin/[ck]?sh" "\\(\\(^cd .*\n\\)?diff -c .*\\)?\n\\*\\*\\* .*\n--- .*\n\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*\\*" "\\(diff -u .*\\)?\n--- .*\n\\+\\+\\+ .*\n@@ [-+][0-9]+,[0-9]+ [-+][0-9]+,[0-9]+ @@" "^current state:\n==============\n" "^\\(- \\)?[-=_]+\\s ?\\(cut here\\|Environment Follows\\)") "\\|") (#$ . 104459))
(put 'ispell-message-text-end 'risky-local-variable t)
#@79 Return multipart message start boundary or nil if none.
(fn &optional LIMIT)
(defalias 'ispell-mime-multipartp #[256 "\300\301\302#\205Q \303\304\305!\203+ \303\211u\210`\262\304\305!\204\" \306u\210\202 \307`\"\266\202\202> `\304\310!\2038 \303u\210\202, \307`\"\266\202\211G\306W\203L \303\211\262\202O \311P\262\207" [re-search-forward "Content-Type: *multipart/\\([^ \n]*;[ ]*[\n]?[ ]*\\)+boundary=" t nil looking-at "\"" 1 buffer-substring-no-properties "[-0-9a-zA-Z'()+_,./:=?]" "--"] 6 (#$ . 105111)])
#@482 Move point across header, or entire MIME part if message is encoded.
All specified types except `7bit' `8bit' and `quoted-printable' are considered
encoded and therefore skipped. See rfc 1521, 2183, ...
If no boundary is given, then entire message is skipped.
This starts one line ABOVE the MIME content messages, on the boundary marker,
for operation with the generic region-skipping code.
This places new MIME boundaries into variable `ispell-checking-message'.
(fn BOUNDARY)
(defalias 'ispell-mime-skip-part #[257 "\303y\210\304\303\304\303\203\230 \303\262\305\306!\2032 \307\225b\210\305\310!\203# \304\304\262\304\262\311\312\303\304#\210\303y\210\305\313!\203T \314\224\314\225{\211\226\315\235\262\304\262\307\225b\210\311\312\303\304#\210\303y\266\305\316!\203\205 \317 \320\"\203j \304\262\202\201 \303y\210\211\321E\n\304=?\205y \nB\304\262\304\262\210\202\n \305\322!\203\n \304\262\307\225b\210\303y\210\202\n \211\203\242 `\202\265 \204\253 db\202\265 \311\303\304#\210\323 \210`\207" [case-fold-search ispell-skip-html ispell-checking-message nil t looking-at "Content-Type: *text/" 0 "html" re-search-forward "\\(.*;[ ]*[\n]\\)*.*$" "Content-Transfer-Encoding: *\\([^ \n]*\\)" 1 ("7BIT" "8BIT" "QUOTED-PRINTABLE" "BINARY") "Content-Type: *multipart/" ispell-mime-multipartp string-match ispell-mime-skip-part "Content-[^ ]*: *\\(.*;[ ]*[\n]\\)*.*$" beginning-of-line] 9 (#$ . 105639)])
#@910 Check the spelling of a mail message or news post.
Don't check spelling of message headers except the Subject field.
Don't check included messages.
To abort spell checking of a message region and send the message anyway,
use the `x' command. (Any subsequent regions will be checked.)
The `X' command aborts sending the message so that you can edit the buffer.
To spell-check whenever a message is sent, include the appropriate lines
in your init file:
(add-hook \='message-send-hook #\='ispell-message) ;; GNUS 5
(add-hook \='news-inews-hook #\='ispell-message) ;; GNUS 4
(add-hook \='mail-send-hook #\='ispell-message)
(add-hook \='mh-before-send-letter-hook #\='ispell-message)
You can bind this to the key C-c i in GNUS or mail by adding to
`news-reply-mode-hook' or `mail-mode-hook' the following lambda expression:
(function (lambda () (local-set-key "\C-ci" \='ispell-message)))
(defalias 'ispell-message #[0 "\212eb\210\306\211\307\310\311 !\312Q\306\313#\314\206 \307\315\306\313#\206 e!\314\n\204) d\202D \316\n!\203@ \307\n\306\313#\203< \317\224\202D d\202D d\n ^!\320 !\205L \321\322\323!\203] \324\323 \325\320\f!R\202\215
\326\267\202u \3279\330R\202\215 \331\320:!P\202\215 \204} \332\202\215 \333\334!\203\214 \331\320 !P\202\215 \211\335 C\336\337Q\340DBB;<\313 =\341\342p\"\204\314 \211\203\314 eb\210\307@@\313#\203\305 \211@A\"\306\262\202\250 \211A\262\202\250 \343\317\344\345\346\f $\347\"\350$\216eb\210\313;\307\351\313#\262 eb\210\307\352\313#\203 \317\225b\210\353\354!\204 \353\355!\204 ;\356`\306\210\353\357!\203 \360\210\202`\"\210\203.eb\210\361!\262\n \203U\307\n\362P\306\313#\203U\363\n\306\313#\203U`\364!W\203U`\306\223\210eb\210\203~ \204~eb\210\307\365\313#\210\366y\210\367\306!\210`V\203~`\306\223\210`]b\210\370y\210; \203\227 \367 EC=\356`\"+\266\212)\207" [ispell-skip-region-alist mail-header-separator ispell-message-text-end mail-yank-prefix sc-reference-tag-string major-mode nil re-search-forward "^" regexp-quote "$" t copy-marker "^$" char-or-string-p 0 ispell-non-empty-string " \\| " functionp sc-cite-regexp "\\(" "\\)\\|" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (message-mode 99 mh-letter-mode 108)) "In article <\\|[^,;&+=\n]+ <[^,;&+=]+> writes:\\|" "\\|" "[^,;&+=\n]+ writes:\\|" "In [a-zA-Z.]+ you write:\\|In <[^,;&+=]+> [^,;&+=]+ writes:\\| *> *" boundp vm-included-text-prefix ispell--make-filename-or-URL-re "^\\(" "\\)" forward-line local-variable-p ispell-local-dictionary make-byte-code "\301\306\211\223\210\302\306\211\223\210\300\306\303\211\207" vconcat vector [ispell-skip-region-alist ispell-skip-html nil case-fold-search] 3 "MIME-Version:" "^Subject: *" looking-at ".*Re\\>" "\\[" ispell-region "\n[ ]" 2 ispell-mime-multipartp "--" re-search-backward marker-position "Content-[^ ]*:" -1 ispell-mime-skip-part 1 message-cite-prefix-regexp mh-ins-buf-prefix case-fold-search ispell-message-dictionary-alist ispell-checking-message] 19 (#$ . 107079) nil])
#@15
(fn STRING)
(defalias 'ispell-non-empty-string #[257 "\211\203\n \211\301\230\203\f \207\302!\207" [regexp-unmatchable "" regexp-quote] 3 (#$ . 110167)])
#@70 Load all buffer-local information, restarting Ispell when necessary.
(defalias 'ispell-accept-buffer-local-defs #[0 "\300 \210\301 \210\302 \207" [ispell-buffer-local-dict ispell-buffer-local-words ispell-buffer-local-parsing] 1 (#$ . 110331)])
#@141 Place Ispell into parsing mode for this buffer.
Overrides the default parsing mode.
Includes LaTeX/Nroff modes and extended character mode.
(defalias 'ispell-buffer-local-parsing #[0 "\305\306!\210\307=\2042 \310=\203 \311\312\313\n!\"\204 \314=\2032 \305\315!\210 \314=\2046 \316\301!\210\314\2026 \305\317!\210 \203J \320=\204J \311\321\313\n!\227\"??\322 \211\203V \305\323P!\210\210\212db\210\324\f\325\320#\205\267 \326 \325\327\f!\210\330\331\320#\205\265 \332\333!\227\262\311\334\"\203\214 \307=\204\214 \305\335!\210\202j \311\336\"\203\232 \305\337!\210\202j \311\340\"\203\252 \305\323P!\210\202j \341\342!\210\343\344!\210\202j \266\202)\207" [ispell-check-comments ispell-parser major-mode ispell-skip-html ispell-parsing-keyword ispell-send-string "!\n" exclusive use-mode-name string-match "[Tt][Ee][Xx]-mode" symbol-name tex "+\n" make-local-variable "-\n" t "sgml\\|html\\|xml" ispell-get-extended-character-mode "\n" search-backward nil point-at-eol search-forward re-search-forward " *\\([^ \"]+\\)" match-string-no-properties 1 "latex-mode" "+\n~tex\n" "nroff-mode" "-\n~nroff\n" "~" message "Invalid Ispell Parsing argument!" sit-for 2] 6 (#$ . 110583)])
#@368 Initializes local dictionary and local personal dictionary.
If optional NO-RELOAD is non-nil, do not reload any dictionary.
When a dictionary is defined in the buffer (see variable
`ispell-dictionary-keyword'), it will override the local setting
from \[ispell-change-dictionary].
Both should not be used to define a buffer-local dictionary.
(fn &optional NO-RELOAD)
(defalias 'ispell-buffer-local-dict #[256 "\212eb\210\305db\210\204( \306 \305\307#\203( \310 !\210\311 \262\312\313\307#\203( \314\315!db\210\306 \305\307#\203G \310 !\210\311 \262\312\313\307#\203G \314\315!\210)\211?\205P \316 \207" [ispell-local-dictionary-overridden ispell-dictionary-keyword ispell-local-dictionary ispell-pdict-keyword ispell-local-pdict nil search-backward t search-forward point-at-eol re-search-forward " *\\([^ \"]+\\)" match-string-no-properties 1 ispell-internal-change-dictionary] 6 (#$ . 111782)])
#@57 Load the buffer-local dictionary in the current buffer.
(defalias 'ispell-buffer-local-words #[0 "\203 \303 \232\204 \304\305!\210\306 \210 \211\203' \211@\307\310\311Q!\210A\266\202\202 \210\2043 \2033 \303 \212eb\210\312\n\313\305#\205w \204F \303 \314 \315 \313\316\317\305#\203r \320\321!\262\321GW\203K \322\"\323\232\203K \307\310\311Q!\210\202K \266\2027 )\207" [ispell-buffer-local-name ispell-buffer-session-localwords ispell-words-keyword buffer-name ispell-kill-ispell t ispell-init-process ispell-send-string "@" "\n" search-forward nil point-at-eol ispell-get-casechars re-search-forward " *\\([^ ]+\\)" match-string-no-properties 1 string-match 0] 7 (#$ . 112692)])
#@48 Add WORD to the per-file word list.
(fn WORD)
(defalias 'ispell-add-per-file-word-list #[257 "\204 \306 \212eb\210\307\211\211\211?\205\204 \307\310\n\307\311#\262\211\206\" \262\312G\313\307\210i# W\262)\203: \204> \204 \314\262\204| \315\313!\210\211\204P \316 \210\f\203d \317 \210\320\f\321\307!\"\210\f\322P\202e \323\n\261\210
\203|
G\324V\203| \212\316 \210
c\210)\322Pc\210\202 \266\204)\207" [ispell-buffer-local-name case-fold-search ispell-words-keyword fill-column comment-start comment-end buffer-name nil search-forward move + 1 t open-line newline comment-normalize-vars comment-padright comment-add " " "" 0] 9 (#$ . 113397)])
(provide 'ispell)
Mini Shell