Current File : //usr/local/share/emacs/27.2/lisp/textmodes/flyspell.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!\210\302\303\304\305\306\307\310\311\312\301\312\313& \210\314\315\316\317\320DD\321\312\303\322\323&\210\314\324\316\317\325DD\326\312\303\322\323&\210\314\327\316\317\330DD\331\312\303\322\323\332\333& \210\314\334\316\317\335DD\336\312\303\322\337\332\340& \210\314\341\316\317\342DD\343\312\303\332\344\322\323& \210\314\345\316\317\346DD\347\332\350\322\317\312\303& \207" [require ispell custom-declare-group flyspell nil "Spell checking on the fly." :tag "FlySpell" :prefix "flyspell-" :group processes custom-declare-variable flyspell-highlight-flag funcall function #[0 "\300\207" [t] 1] "How Flyspell should indicate misspelled words.\nNon-nil means use highlight, nil means use minibuffer messages." :type boolean flyspell-mark-duplications-flag #[0 "\300\207" [t] 1] "Non-nil means Flyspell reports a repeated word as an error.\nSee `flyspell-mark-duplications-exceptions' to add exceptions to this rule.\nDetection of repeated words is not implemented in\n\"large\" regions; see variable `flyspell-large-region'." flyspell-case-fold-duplications #[0 "\300\207" [t] 1] "Non-nil means Flyspell matches duplicate words case-insensitively." :version "27.1" flyspell-mark-duplications-exceptions #[0 "\300\207" [((nil "that" "had") ("\\`francais" "nous" "vous"))] 1] "A list of exceptions for duplicated words.\nIt should be a list of (LANGUAGE . EXCEPTION-LIST).\n\nLANGUAGE is nil, which means the exceptions apply regardless of\nthe current dictionary, or a regular expression matching the\ndictionary name (`ispell-local-dictionary' or\n`ispell-dictionary') for which the exceptions should apply.\n\nEXCEPTION-LIST is a list of strings. The checked word is\ndowncased before comparing with these exceptions." (alist :key-type (choice (const :tag "All dictionaries" nil) string) :value-type (repeat string)) "24.1" flyspell-sort-corrections #[0 "\300\207" [nil] 1] "If non-nil, sort the corrections before popping them.\nThe sorting is controlled by the `flyspell-sort-corrections-function'\nvariable, and defaults to sorting alphabetically." "21.1" flyspell-sort-corrections-function #[0 "\300\207" [flyspell-sort-corrections-alphabetically] 1] "The function used to sort corrections.\nThis only happens if `flyspell-sort-corrections' is non-nil. The\nfunction takes three parameters -- the two correction candidates\nto be sorted, and the third parameter is the word that's being\ncorrected." "26.1"] 12)
#@22
(fn CORR1 CORR2 _)
(defalias 'flyspell-sort-corrections-alphabetically #[771 "\231\207" [] 5 (#$ . 2851)])
#@19
(fn CORRS WORD)
(defalias 'flyspell-sort #[514 "\203 \301\302\303\304\305\306!\307\"\310\311%\"\207\207" [flyspell-sort-corrections sort make-byte-code 514 " \300#\207" vconcat vector [flyspell-sort-corrections-function] 6 "\n\n(fn C1 C2)"] 10 (#$ . 2968)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\312\317&\210\300\320\302\303\321DD\322\306\307\312\323&\210\300\324\302\303\325DD\326\306\307\312\323&\210\300\327\302\303\330DD\331\306\307\310\332\312\333& \210\300\334\302\303\335DD\336\306\307\312\337&\210\300\340\302\303\341DD\342\306\307\310\332\312\343& \210\300\344\302\303\345DD\346\306\307\310\332\312\347& \210\300\350\302\303\351DD\352\306\307\312\323&\210\300\353\302\303\354DD\355\306\307\312\323&\210\300\356\302\303\357DD\360\306\307\310\332\312\361& \210\300\362\302\303\363DD\364\306\307\310\332\312\365& \210\300\366\302\303\367DD\370\306\307\310\332\312\371& \210\300\372\302\303\373DD\374\306\307\312\323&\210\300\375\302\303\376DD\377\306\307\310\332\312\201@ & \210\300\201A \302\303\201B DD\201C \306\307\310\332\312\323& \210\300\201D \302\303\201E DD\201F \306\307\310\332\312\323& \210\300\201G \302\303\201H DD\201I \306\307\312\201J &\210\300\201K \302\303\201L DD\201M \306\307\310\332\312\201N & \210\300\201O \302\303\201P DD\201Q \306\307\312\303&\210\300\201R \302\303\201S DD\201T \306\307\312\201U &\210\300\201V \302\303\201W DD\201X \306\307\312\201Y &\210\300\201Z \302\303\201[ DD\201\\ \306\307\312\323\201] \201^ \201_ \201` & \210\300\201a \302\303\201b DD\201c \312\201d \306\307&\210\201e \201f \201g \201h #\210\201i \211\203\211@\201f N\203\201g N\204\201j \201g \201f N#\210A\266\202\202\335\210\201k \201f \201g \201l #\207" [custom-declare-variable flyspell-duplicate-distance funcall function #[0 "\300\207" [400000] 1] "The maximum distance for finding duplicates of unrecognized words.\nThis applies to the feature that when a word is not found in the dictionary,\nif the same spelling occurs elsewhere in the buffer,\nFlyspell uses a different face (`flyspell-duplicate') to highlight it.\nThis variable specifies how far to search to find such a duplicate.\n-1 means no limit (search the whole buffer).\n0 means do not search for duplicate unrecognized spellings." :group flyspell :version "24.5" :type (choice (const :tag "no limit" -1) number) flyspell-delay #[0 "\300\207" [3] 1] "The number of seconds to wait before checking, after a \"delayed\" command." number flyspell-persistent-highlight #[0 "\300\207" [t] 1] "Non-nil means misspelled words remain highlighted until corrected.\nIf this variable is nil, only the most recently detected misspelled word\nis highlighted, and the highlight is turned off as soon as point moves\noff the misspelled word.\n\nMake sure this variable is non-nil if you use `flyspell-region'." boolean flyspell-highlight-properties #[0 "\300\207" [t] 1] "Non-nil means highlight incorrect words even if a property exists for this word." flyspell-default-delayed-commands #[0 "\300\207" [(self-insert-command delete-backward-char backward-or-forward-delete-char delete-char scrollbar-vertical-drag backward-delete-char-untabify)] 1] "The standard list of delayed commands for Flyspell.\nSee `flyspell-delayed-commands'." "21.1" (repeat (symbol)) flyspell-delayed-commands #[0 "\300\207" [nil] 1] "List of commands that are \"delayed\" for Flyspell mode.\nAfter these commands, Flyspell checking is delayed for a short time,\nwhose length is specified by `flyspell-delay'." (repeat (symbol)) flyspell-default-deplacement-commands #[0 "\300\207" [(next-line previous-line handle-switch-frame handle-select-window scroll-up scroll-down)] 1] "The standard list of deplacement commands for Flyspell.\nSee variable `flyspell-deplacement-commands'." (repeat (symbol)) flyspell-deplacement-commands #[0 "\300\207" [nil] 1] "List of commands that are \"deplacement\" for Flyspell mode.\nAfter these commands, Flyspell checking is performed only if the previous\ncommand was not the very same command." (repeat (symbol)) flyspell-issue-welcome-flag #[0 "\300\207" [t] 1] "Non-nil means that Flyspell should display a welcome message when started." flyspell-issue-message-flag #[0 "\300\207" [t] 1] "Non-nil means that Flyspell emits messages when checking words." flyspell-incorrect-hook #[0 "\300\207" [nil] 1] "List of functions to be called when incorrect words are encountered.\nEach function is given three arguments. The first two\narguments are the beginning and the end of the incorrect region.\nThe third is either the symbol `doublon' or the list\nof possible corrections as returned by `ispell-parse-output'.\n\nIf any of the functions return non-nil, the word is not highlighted as\nincorrect." hook flyspell-default-dictionary #[0 "\300\207" [nil] 1] "A string that is the name of the default dictionary.\nThis is passed to the `ispell-change-dictionary' when flyspell is started.\nIf the variable `ispell-local-dictionary' or `ispell-dictionary' is non-nil\nwhen flyspell is started, the value of that variable is used instead\nof `flyspell-default-dictionary' to select the default dictionary.\nOtherwise, if `flyspell-default-dictionary' is nil, it means to use\nIspell's ultimate default dictionary." (choice string (const :tag "Default" nil)) flyspell-tex-command-regexp #[0 "\300\207" [#1="\\(\\(begin\\|end\\)[ ]*{\\|\\(cite[a-z*]*\\|label\\|ref\\|eqref\\|usepackage\\|documentclass\\)[ ]*\\(\\[[^]]*\\]\\)?{[^{}]*\\)"] 1 #1#] "A string that is the regular expression that matches TeX commands." string flyspell-check-tex-math-command #[0 "\300\207" [nil] 1] "Non-nil means check even inside TeX math environment.\nTeX math environments are discovered by `texmathp', implemented\ninside AUCTeX package. That package may be found at\nURL `https://www.gnu.org/software/auctex/'" flyspell-dictionaries-that-consider-dash-as-word-delimiter #[0 "\300\207" [("francais" "deutsch8" "norsk")] 1] "List of dictionary names that consider `-' as word delimiter." (repeat (string)) flyspell-abbrev-p #[0 "\300\207" [nil] 1] "If non-nil, add correction to abbreviation table." flyspell-use-global-abbrev-table-p #[0 "\300\207" [nil] 1] "If non-nil, prefer global abbrev table to local abbrev table." flyspell-mode-line-string #[0 "\300\207" [#2=" Fly"] 1 #2#] "String displayed on the mode line when flyspell is active.\nSet this to nil if you don't want a mode line indicator." (choice string (const :tag "None" nil)) flyspell-large-region #[0 "\300\207" [1000] 1] "The threshold that determines if a region is small.\nIf the region is smaller than this number of characters,\n`flyspell-region' checks the words sequentially using regular\nflyspell methods. Else, if the region is large, a new Ispell process is\nspawned for speed.\n\nDoubled words are not detected in a large region, because Ispell\ndoes not check for them.\n\nIf this variable is nil, all regions are treated as small." (choice number (const :tag "All small" nil)) flyspell-insert-function #[0 "\300\207" [insert] 1] "Function for inserting word by flyspell upon correction." flyspell-before-incorrect-word-string #[0 "\300\207" [nil] 1] "String used to indicate an incorrect word starting." (choice string (const nil)) flyspell-after-incorrect-word-string #[0 "\300\207" [nil] 1] "String used to indicate an incorrect word ending." (choice string (const nil)) flyspell-use-meta-tab #[0 "\300\207" [t] 1] "Non-nil means that flyspell uses M-TAB to correct word." :initialize custom-initialize-default :set #[514 "\301\302L\205\n \303#\207" [flyspell-mode-map define-key "\211" flyspell-auto-correct-word] 7 "\n\n(fn SYM VAL)"] flyspell-auto-correct-binding #[0 "\300\207" [[(control 59)]] 1] "The key binding for flyspell auto correction." key-sequence defvaralias flyspell-generic-check-word-p flyspell-generic-check-word-predicate nil (saved-value saved-variable-comment) put make-obsolete-variable "25.1"] 12)
#@234 Function providing per-mode customization over which words are flyspelled.
Returns t to continue checking, nil otherwise.
Flyspell mode sets this variable to whatever is the `flyspell-mode-predicate'
property of the major mode name.
(defvar flyspell-generic-check-word-predicate nil (#$ . 10947))
(byte-code "\300\301!\210\302\303\304\305#\210\302\306\304\305#\207" [make-variable-buffer-local flyspell-generic-check-word-predicate put mail-mode flyspell-mode-predicate mail-mode-flyspell-verify message-mode] 4)
#@73 Function used for `flyspell-generic-check-word-predicate' in Mail mode.
(defalias 'mail-mode-flyspell-verify #[0 "\212eb\210\302\303\304!\305Q\306\307#\210`)\310\301!\204 d\202+ \212db\210\311 `\312Z]\307#\210`)`W\203C \212\313 \210\314\315!)\205V `\316\225V\202V `V\203M \306\202V \212\313 \210\314\317!)?\207" [mail-header-separator message-signature-separator re-search-forward "^\\(?:" regexp-quote "\\)?$" nil t boundp re-search-backward 4000 beginning-of-line looking-at "^Subject:" 0 "[>}|]\\|To:"] 6 (#$ . 11466)])
(put 'texinfo-mode 'flyspell-mode-predicate 'texinfo-mode-flyspell-verify)
#@76 Function used for `flyspell-generic-check-word-predicate' in Texinfo mode.
(defalias 'texinfo-mode-flyspell-verify #[0 "\212\300\301!\210\302\303!)?\207" [forward-word-strictly -1 looking-at "@"] 2 (#$ . 12075)])
(put 'tex-mode 'flyspell-mode-predicate 'tex-mode-flyspell-verify)
#@74 Function used for `flyspell-generic-check-word-predicate' in LaTeX mode.
(defalias 'tex-mode-flyspell-verify #[0 "\212\300\301\302\303#)?\205( \212`\304 \210\305\306\307 \303#\205$ \211\310\224Y\205$ \211\310\225X\262)?\207" [re-search-backward "^[ ]*%%%[ ]+Local" nil t beginning-of-line re-search-forward "\\\\\\(cite\\|label\\|ref\\){[^}]*}" line-end-position 0] 5 (#$ . 12361)])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307\310\"\207" [put sgml-mode flyspell-mode-predicate sgml-mode-flyspell-verify html-mode nxml-mode autoload sgml-lexical-context "sgml-mode"] 4)
#@236 Function used for `flyspell-generic-check-word-predicate' in SGML mode.
Tag and attribute names are not spell checked, everything else is.
String values of attributes are checked because they can be text
like <img alt="Some thing.">.
(defalias 'sgml-mode-flyspell-verify #[0 "\300 @\301>?\207" [sgml-lexical-context (tag pi)] 2 (#$ . 12980)])
#@58 Faces corresponding to text in programming-mode buffers.
(defvar flyspell-prog-text-faces '(font-lock-string-face font-lock-comment-face font-lock-doc-face) (#$ . 13330))
#@72 Used for `flyspell-generic-check-word-predicate' in programming modes.
(defalias 'flyspell-generic-progmode-verify #[0 "\301`e\"?\205 \302`S\303\"\211>\262\207" [flyspell-prog-text-faces eql get-text-property face] 3 (#$ . 13507)])
#@51 Turn on `flyspell-mode' for comments and strings.
(defalias 'flyspell-prog-mode #[0 "\302\303\301!\210\304\305\306\"\206 \307\305\306\"\310\311!\210\312\313!\207" [flyspell-generic-check-word-predicate flyspell--prev-meta-tab-binding flyspell-generic-progmode-verify make-local-variable local-key-binding "\211" t global-key-binding flyspell-mode 1 run-hooks flyspell-prog-mode-hook] 3 (#$ . 13748) nil])
#@28 Overlay compatibility kit.
(autoload 'make-overlay "overlay" '(#$ . 14162) t)
#@28 Overlay compatibility kit.
(autoload 'overlayp "overlay" '(#$ . 14246) t)
#@28 Overlay compatibility kit.
(autoload 'overlays-in "overlay" '(#$ . 14326) t)
#@28 Overlay compatibility kit.
(autoload 'delete-overlay "overlay" '(#$ . 14409) t)
#@28 Overlay compatibility kit.
(autoload 'overlays-at "overlay" '(#$ . 14495) t)
#@28 Overlay compatibility kit.
(autoload 'overlay-put "overlay" '(#$ . 14578) t)
#@28 Overlay compatibility kit.
(autoload 'overlay-get "overlay" '(#$ . 14661) t)
#@28 Overlay compatibility kit.
(autoload 'previous-overlay-change "overlay" '(#$ . 14744) t)
#@48 Keymap for Flyspell to put on erroneous words.
(defvar flyspell-mouse-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [mouse-2] flyspell-correct-word] 5) (#$ . 14839))
#@60 Minor mode keymap for Flyspell mode--for the whole buffer.
(defvar flyspell-mode-map (byte-code "\302 \203\f \303\304\305#\210\303 \306#\210\303\307\310#\210\303\311\305#\210\303\312\313#\210\211\207" [flyspell-use-meta-tab flyspell-auto-correct-binding make-sparse-keymap define-key "\211" flyspell-auto-correct-word flyspell-auto-correct-previous-word [(control 44)] flyspell-goto-next-error [(control 46)] [3 36] flyspell-correct-word-before-point] 5) (#$ . 15045))
#@68 Non-nil means that the `-' char is considered as a word delimiter.
(defvar flyspell-consider-dash-as-word-delimiter-flag nil (#$ . 15526))
(make-variable-buffer-local 'flyspell-consider-dash-as-word-delimiter-flag)
(defvar flyspell-dash-dictionary nil)
(make-variable-buffer-local 'flyspell-dash-dictionary)
(defvar flyspell-dash-local-dictionary nil)
(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\210\302\312\313\314\306\307\310\311&\207" [make-variable-buffer-local flyspell-dash-local-dictionary custom-declare-face flyspell-incorrect ((((supports :underline (:style wave))) :underline (:style wave :color "Red1")) (t :underline t :inherit error)) "Flyspell face for misspelled words." :version "24.4" :group flyspell flyspell-duplicate ((((supports :underline (:style wave))) :underline (:style wave :color "DarkOrange")) (t :underline t :inherit warning)) "Flyspell face for words that appear twice in a row.\nSee also `flyspell-duplicate-distance'."] 8)
(defvar flyspell-overlay nil)
#@95 Non-nil if Flyspell mode is enabled.
Use the command `flyspell-mode' to change this variable.
(defvar flyspell-mode nil (#$ . 16537))
(make-variable-buffer-local 'flyspell-mode)
#@1294 Toggle on-the-fly spell checking (Flyspell mode).
If called interactively, enable Flyspell 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.
Flyspell mode is a buffer-local minor mode. When enabled, it
spawns a single Ispell process and checks each word. The default
flyspell behavior is to highlight incorrect words.
Bindings:
\[ispell-word]: correct words (using Ispell).
\[flyspell-auto-correct-word]: automatically correct word.
\[flyspell-auto-correct-previous-word]: automatically correct the last misspelled word.
\[flyspell-correct-word] (or down-mouse-2): popup correct words.
Hooks:
This runs `flyspell-mode-hook' after flyspell mode is entered or exit.
Remark:
`flyspell-mode' uses `ispell-mode'. Thus all Ispell options are
valid. For instance, a different dictionary can be used by
invoking `ispell-change-dictionary'.
Consider using the `ispell-parser' to check your text. For instance
consider adding:
(add-hook \='tex-mode-hook (function (lambda () (setq ispell-parser \='tex))))
in your init file.
\[flyspell-region] checks all words inside a region.
\[flyspell-buffer] checks the whole buffer.
(fn &optional ARG)
(defalias 'flyspell-mode #[256 "\301 \302=\203
?\202 \303!\304V\211\2030 \3051! \306 0\202, \307\310A\"\210\300\311!\262\210\2023 \312 \210\313\314\203= \315\202> \316\"\210\317\320!\203b \301 \203R \211\301 \232\203b \321\307\322\203] \323\202^ \324#\266\210\325 \210\207" [flyspell-mode current-message toggle prefix-numeric-value 0 (error) flyspell-mode-on message "Error enabling Flyspell mode:\n%s" -1 flyspell-mode-off run-hooks flyspell-mode-hook flyspell-mode-on-hook flyspell-mode-off-hook called-interactively-p any " in current buffer" "Flyspell mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 16723) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar flyspell-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\211%\207" [flyspell-mode-map flyspell-mode-hook variable-documentation put "Hook run after entering or leaving `flyspell-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 flyspell-mode flyspell-mode-line-string nil] 6)
#@40 Unconditionally turn on Flyspell mode.
(defalias 'turn-on-flyspell #[0 "\300\301!\207" [flyspell-mode 1] 2 (#$ . 19139)])
#@41 Unconditionally turn off Flyspell mode.
(defalias 'turn-off-flyspell #[0 "\300\301!\207" [flyspell-mode -1] 2 (#$ . 19267)])
(custom-add-option 'text-mode-hook 'turn-on-flyspell)
(defvar flyspell-buffers nil)
#@38 Is BUFFER a minibuffer?
(fn BUFFER)
(defalias 'flyspell-minibuffer-p #[257 "\300\301\"\211:\205
\302@!\207" [get-buffer-window-list t window-minibuffer-p] 4 (#$ . 19482)])
#@61 The buffer in which the last flyspell operation took place.
(defvar flyspell-last-buffer nil (#$ . 19664))
#@24
(fn &optional FORCE)
(defalias 'flyspell-accept-buffer-local-defs #[256 "\211\204 p=?\205- pr\306 \210) \n=\205 \f=?\205- \n\f\f\206( \n
\235\211\207" [flyspell-last-buffer flyspell-dash-dictionary ispell-dictionary flyspell-dash-local-dictionary ispell-local-dictionary flyspell-dictionaries-that-consider-dash-as-word-delimiter ispell-accept-buffer-local-defs flyspell-consider-dash-as-word-delimiter-flag] 3 (#$ . 19777)])
(defalias 'flyspell-hack-local-variables-hook #[0 "\300\301!\207" [flyspell-accept-buffer-local-defs force] 2])
(defalias 'flyspell-kill-ispell-hook #[0 "\301\302 \211\205 \211@r\211q\210\303\304!\210)A\266\202\202 \207" [flyspell-last-buffer nil buffer-list kill-local-variable flyspell-word-cache-word] 4])
(add-hook 'ispell-kill-ispell-hook 'flyspell-kill-ispell-hook)
#@71 Turn Flyspell mode on. Do not use this; use `flyspell-mode' instead.
(defalias 'flyspell-mode-on #[0 "\306 \210\307 \204 \n\204 \203 \310 !\210\311\312!\210\313 \210\314 \210\315\316\317\320\211$\210\315\321\322\320\211$\210\315\323\324\325\320$\210\315\326\327\320\211$\210\f\330N\211\203D \211\210$\205m %\205m \331\332!\205m \333\334\325\335#\336\337\203i \340\341\342!\"\202j \343\"\262\207" [ispell-highlight-face ispell-local-dictionary ispell-dictionary flyspell-default-dictionary major-mode flyspell-generic-check-word-predicate ispell-set-spellchecker-params flyspell-incorrect ispell-change-dictionary flyspell-accept-buffer-local-defs force flyspell-delay-commands flyspell-deplacement-commands add-hook post-command-hook flyspell-post-command-hook t pre-command-hook flyspell-pre-command-hook after-change-functions flyspell-after-change-function nil hack-local-variables-hook flyspell-hack-local-variables-hook flyspell-mode-predicate called-interactively-p interactive where-is-internal flyspell-auto-correct-word non-ascii message "%s" format "Welcome to flyspell. Use %s or Mouse-2 to correct words." key-description "Welcome to flyspell. Use Mouse-2 to correct words." flyspell-issue-message-flag flyspell-issue-welcome-flag] 7 (#$ . 20596)])
#@56 Install the standard set of Flyspell delayed commands.
(defalias 'flyspell-delay-commands #[0 "\302\303\"\210\302\303 \"\207" [flyspell-default-delayed-commands flyspell-delayed-commands mapc flyspell-delay-command] 3 (#$ . 21875)])
#@243 Set COMMAND to be delayed, for Flyspell.
When flyspell `post-command-hook' is invoked because a delayed command
has been used, the current word is not immediately checked.
It will be checked only after `flyspell-delay' seconds.
(fn COMMAND)
(defalias 'flyspell-delay-command #[257 "\300\301\302#\207" [put flyspell-delayed t] 5 (#$ . 22116) "SDelay Flyspell after Command: "])
#@60 Install the standard set of Flyspell deplacement commands.
(defalias 'flyspell-deplacement-commands #[0 "\302\303\"\210\302\303 \"\207" [flyspell-default-deplacement-commands flyspell-deplacement-commands mapc flyspell-deplacement-command] 3 (#$ . 22501)])
#@197 Set COMMAND that implement cursor movements, for Flyspell.
When flyspell `post-command-hook' is invoked because a deplacement command
has been used, the current word is not checked.
(fn COMMAND)
(defalias 'flyspell-deplacement-command #[257 "\300\301\302#\207" [put flyspell-deplacement t] 5 (#$ . 22766) "SDeplacement Flyspell after Command: "])
(defvar flyspell-word-cache-start nil)
(defvar flyspell-word-cache-end nil)
(defvar flyspell-word-cache-word nil)
(defvar flyspell-word-cache-result '_)
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [make-variable-buffer-local flyspell-word-cache-start flyspell-word-cache-end flyspell-word-cache-word flyspell-word-cache-result] 2)
#@39 Buffer current before `this-command'.
(defvar flyspell-pre-buffer nil (#$ . 23474))
#@37 Point before running `this-command'
(defvar flyspell-pre-point nil (#$ . 23564))
#@38 Column before running `this-command'
(defvar flyspell-pre-column nil (#$ . 23651))
(defvar flyspell-pre-pre-buffer nil)
(defvar flyspell-pre-pre-point nil)
(make-variable-buffer-local 'flyspell-pre-point)
#@51 The last interactive command checked by Flyspell.
(defvar flyspell-previous-command nil (#$ . 23862))
#@69 Save the current buffer and point for Flyspell's post-command hook.
(defalias 'flyspell-pre-command-hook #[0 "p`i\211\207" [flyspell-pre-buffer flyspell-pre-point flyspell-pre-column] 2 (#$ . 23970) nil])
#@25 Turn Flyspell mode off.
(defalias 'flyspell-mode-off #[0 "\303\304\305\306#\210\303\307\310\306#\210\303\311\312\306#\210\303\313\314\306#\210\315 \210\316\211\316\211\207" [flyspell-pre-buffer flyspell-pre-point flyspell-mode remove-hook post-command-hook flyspell-post-command-hook t pre-command-hook flyspell-pre-command-hook after-change-functions flyspell-after-change-function hack-local-variables-hook flyspell-hack-local-variables-hook flyspell-delete-all-overlays nil] 5 (#$ . 24184)])
#@147 Return non-nil if we should check the word before point.
More precisely, it applies to the word that was before point
before the current command.
(defalias 'flyspell-check-pre-word-p #[0 "\306 \247\203
p=\204 \307\202\302 \n=\203! =\203! \307\202\302 `SU\203A fz\310=\204N \211\311\230\204A \312\313\211T\"\"\204N `U\204N `TU\203R \307\202\302 \f9\203\235
\204\235 \f\314N\204n \f\315N\203\235 \f=\203\235 i\316U\204\231 iU\204\231 f\203\231 fz\310=\204\231 \211\311\230\204\235 \312\313\211T\"\"\203\235 \307\202\302 p =\204\247 \317\202\302 \247\203\263 \247\204\267 \317\202\302 W\206\302 V\207" [flyspell-pre-point flyspell-pre-buffer flyspell-pre-pre-point flyspell-pre-pre-buffer this-command executing-kbd-macro ispell-get-otherchars nil 119 "" string-match buffer-substring-no-properties flyspell-delayed flyspell-deplacement 0 t flyspell-previous-command flyspell-pre-column flyspell-word-cache-start flyspell-word-cache-end] 6 (#$ . 24689)])
(defvar flyspell-changes nil)
(make-variable-buffer-local 'flyspell-changes)
#@90 Save the current buffer and point for Flyspell's post-command hook.
(fn START STOP LEN)
(defalias 'flyspell-after-change-function #[771 "BB\211\207" [flyspell-changes] 5 (#$ . 25756)])
#@147 Return non-nil when the changed word has to be checked.
The answer depends of several criteria.
Mostly we check word delimiters.
(fn START STOP)
(defalias 'flyspell-check-changed-word-p #[514 "f\301>\205\n \211V?\2052 \247\2052 Y\203 X\2062 `\211Y\2060 \211X\2060 \211TU\262?\207" [flyspell-pre-point (10 32)] 5 (#$ . 25953)])
#@127 Return t when the word at `point' has to be checked.
The answer depends of several criteria.
Mostly we check word delimiters.
(defalias 'flyspell-check-word-p #[0 "\306 dSeX\203
\307\202i i\310V\203A i=\204A \212\311u\210\312\313 !\2059 \211\314\230\2041 \312!?\2059 \2069 \312\315!?)\203A \316\202i \n9\203h \n\317N\203S \n=?\202i \n\320N\203d \f?\205i \321
!\202i \316\202i \316\207" [flyspell-pre-column flyspell-consider-dash-as-word-delimiter-flag this-command flyspell-previous-command unread-command-events flyspell-delay ispell-get-otherchars nil 0 -1 looking-at flyspell-get-not-casechars "" "-" t flyspell-deplacement flyspell-delayed sit-for] 3 (#$ . 26300)])
#@16
(fn MSG OBJ)
(defalias 'flyspell-debug-signal-no-check #[514 "\301r\302\303!q\210\304 \210\305c\210\306\307#c)\207" [debug-on-error t get-buffer-create "*flyspell-debug*" erase-buffer "NO-CHECK:\n" format " %S : %S\n"] 6 (#$ . 26982)])
(defalias 'flyspell-debug-signal-pre-word-checked #[0 "\305r\306\307!q\210\310c\210\311\312 \"c\210\311\313\n\"c\210\311\314 \"c\210\311\315\f\"c\210db)\207" [debug-on-error flyspell-pre-point flyspell-pre-buffer flyspell-word-cache-start flyspell-word-cache-end t get-buffer-create "*flyspell-debug*" "PRE-WORD:\n" format " pre-point : %S\n" " pre-buffer : %S\n" " cache-start: %S\n" " cache-end : %S\n"] 3])
(defalias 'flyspell-debug-signal-word-checked #[0 "\304\305 p`r\306\307!q\210\310\311\312 \"\311\313 9\205 \314N\"\311\315\"\311\316rq\210o\203/ \317\2022 `Sf)rq\210o?\205d \212\320u\210\321\322 !\205c \323\230\204W \321\n!?\205c \n\204b \321\324!?\205c \325))#\311\326 9\203s \314N\204w \327\202\266 rq\210o?\205\244 \212\320u\210\321\322 !\205\243 \323\230\204\233 \321\n!?\205\243 \n\206\243 \321\324!?))\203\254 \330\202\266 \250\204\265 \331\202\266 \332\"\261\210db)\207" [debug-on-error this-command flyspell-consider-dash-as-word-delimiter-flag flyspell-delay t ispell-get-otherchars get-buffer-create "*flyspell-debug*" "WORD:\n" format " this-cmd : %S\n" " delayed : %S\n" flyspell-delayed " point : %S\n" " prev-char : [%c] %S\n" 32 -1 looking-at flyspell-get-not-casechars "" "-" 2 " because : %S\n" not-delayed separator no-delay sit-for] 12])
(defalias 'flyspell-debug-signal-changed-checked #[0 "\301`r\302\303!q\210\304c\210\305\306\"c\210db)\207" [debug-on-error t get-buffer-create "*flyspell-debug*" "CHANGED WORD:\n" format " point : %S\n"] 4])
#@70 The `post-command-hook' used by flyspell to check a word on-the-fly.
(defalias 'flyspell-post-command-hook #[0 "\205\220 \3061\211 \307\n\307\211\310=\203 \f\203 \212\fSb\210\311 \210)\312 \203- \212\fb\210\311 \210)\313 \203= \311 \210p`\202S \307\211\n9\203S \n\314N\203S \315\316\317 \204 :\203 @@@A\320\"\203u \212b\210\311 \210)A\266\202S \211\211)\262)0\207\210\321\322\323!\207" [flyspell-mode inhibit-quit this-command deactivate-mark flyspell-pre-point flyspell-pre-pre-buffer (quit) nil transpose-chars flyspell-word flyspell-check-pre-word-p flyspell-check-word-p flyspell-delayed -1 _ input-pending-p flyspell-check-changed-word-p t eval (ignore nil) flyspell-pre-pre-point flyspell-word-cache-end flyspell-word-cache-result flyspell-changes flyspell-previous-command quit-flag] 7 (#$ . 28757) nil])
#@18
(fn WORD POSS)
(defalias 'flyspell-notify-misspell #[514 "\211;\203 \211\202 \301AA@\"\205 \302\303#\207" [flyspell-issue-message-flag flyspell-sort message "misspelling `%s' %S"] 7 (#$ . 29611)])
#@41
(fn WORD BOUND &optional IGNORE-CASE)
(defalias 'flyspell-word-search-backward #[770 "\212\301\302\303 \205 eV\205 S\304\305\306 !\260\301\204f \307\302#\2055 o\2031 `\2025 \301u\210`\211\262\203f \310 \211:\203_ \203Q \211@\227 \227\230\202V \211@ \230\203_ \262\202b b\210\210\202 )\266\205)\207" [inhibit-point-motion-hooks nil t flyspell-get-not-casechars "\\(?:" "\\|\\`\\)" regexp-quote re-search-backward flyspell-get-word] 12 (#$ . 29825)])
#@19
(fn WORD BOUND)
(defalias 'flyspell-word-search-forward #[514 "\212\301\302\303 \205 dW\205 T\304!\305\306\260\301\204X \307\302#\2055 m\2031 `\2025 \310u\210`\211\262\203X \311 \211:\203P \211@\230\203P \262\202T Tb\210\210\202 )\266\205)\207" [inhibit-point-motion-hooks nil t flyspell-get-not-casechars regexp-quote "\\(?:" "\\|\\'\\)" re-search-forward -1 flyspell-get-word] 11 (#$ . 30305)])
#@455 Spell check a word.
If the optional argument FOLLOWING, or, when called interactively
`ispell-following-word', is non-nil, checks the following (rather
than preceding) word when the cursor is not over a word. If
optional argument KNOWN-MISSPELLING is non-nil considers word a
misspelling and skips redundant spell-checking step.
See `flyspell-get-word' for details of how this finds the word to
spell-check.
(fn &optional FOLLOWING KNOWN-MISSPELLING)
(defalias 'flyspell-word #[512 "\306 \210\212\307 \210`\310!\311\211\211\211\211\311=\204# \312\n!\203' \n \204' \313\2024A@\262AA@\262@\262 \314=\203J eV\203\304 Sf\315>\204\304 \f\203\304 \3162\213
\206X *+\211\205\206 \211@\211@\203r ;\203 \317@\"\203 \227A\235\203 \320\316\313\"\210A\266\202\202Z \262\2620\204\304 \212b\210\321Z\212\322\311x)[#\211eY\205\253 \323,#\211\205\264 \211U?\266\202)\203\304 \324\325#\210\311\2024-=\203\336 .=\203\336 /\230\203\336 0\2024 \314=\203\375 \326!\203\375 \327!\210V\203\371 \327S!\210\313\2024-.\211/\204>\330\331!\210\330\332\333Q!\210\3341\311\"\210\3351!\210 @\336\230\203 A\211\2040\337 :\203E\340 @!\262\202E\211\341\311\211F\262\313=\203a\3130\327!\210V\203]\327S!\210\313\202&;\203\2012\203\201\3130\327!\210V\203}\327S!\210\313\202&\204\233\3130\327!\210V\203\227\327S!\210\313\202&3\342W\203\272\212b\210\323e\")\204\337\212b\210\343d\")\204\3373\342V\203\371\212b\210\3233Z\")\204\337\212b\210\3433\\\")\203\371\31102\203\360\344#\210\202\365\345\346\"\210\311\202&\31102\203 \324:\203A@\250\203\347A@\350#\202#\210\202%\351\"\210\311b\2104\2031\3114\211\262*\266\205)\207" [flyspell-word ispell-filter flyspell-generic-check-word-predicate ispell-parser flyspell-mark-duplications-flag ispell-local-dictionary ispell-set-spellchecker-params flyspell-accept-buffer-local-defs flyspell-get-word nil functionp t tex (125 92) exception string-match throw - " \n\f" flyspell-word-search-backward flyspell-highlight-incorrect-region doublon flyspell-tex-command-p flyspell-unhighlight-at ispell-send-string "%\n" "^" "\n" set-process-query-on-exit-flag accept-process-output "" (*) ispell-parse-output 1 0 flyspell-word-search-forward flyspell-highlight-duplicate-region message "duplicate `%s'" + -1 flyspell-notify-misspell ispell-dictionary flyspell-mark-duplications-exceptions flyspell-case-fold-duplications flyspell-word-cache-start flyspell-word-cache-end flyspell-word-cache-word flyspell-word-cache-result ispell-process flyspell-highlight-flag flyspell-duplicate-distance ispell-quit] 14 (#$ . 30733) (list ispell-following-word)])
(defalias 'flyspell-math-tex-command-p #[0 "\301\302!\205 ?\205 \3031 \302 0\207\210\304\207" [flyspell-check-tex-math-command fboundp texmathp (error) nil] 2])
#@47 Return t if WORD is a TeX command.
(fn WORD)
(defalias 'flyspell-tex-command-p #[257 "\212\211A@\301\302`\303Z\304#\205% \305\225U\206% \305\225b\205% \306!\205% \305\225Y\262)\206- \307 \207" [flyspell-tex-command-regexp re-search-backward "\\\\" 100 t 0 looking-at flyspell-math-tex-command-p] 6 (#$ . 33608)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias flyspell-get-casechars ispell-get-casechars flyspell-get-not-casechars ispell-get-not-casechars] 3)
#@654 Return the word for spell-checking according to Ispell syntax.
Optional argument FOLLOWING non-nil means to get the following
(rather than preceding) word when the cursor is not over a word.
Optional second argument EXTRA-OTHERCHARS is a regexp of characters
that may be included as part of a word (see `ispell-dictionary-alist').
This finds the word to spell-check by searching for CASECHARS defined
in `ispell-dictionary-alist' for the current dictionary. Thus, the
word could be far away from point if point is inside whitespace or
punctuation characters, or in text that belongs to a different
language.
(fn &optional FOLLOWING EXTRA-OTHERCHARS)
(defalias 'flyspell-get-word #[512 "\300 \301 \302 \303 \304\305\230?\205 \306P\205 \306P\307\204* \n\203. \310\202/ \306\260\311\211\211\211\211\312\n!\204S \203L \313\n\311\314#\210\202S \315\n\311\314#\210\315 \311\316#\210\305\230\204h \312!\204t \n\203\307 \312 !\203\307 o\204\307 \203\201 \203\307 `=\204\307 \n\203\247 \312 !\203\247 \317u\210\312\n!\203Z \315 \311\320#\210\202Z \314\262`\262\317u\210\312\n!\203\301 \315 \311\320#\210\202Z \321u\210\202Z \313\311\314#\205\341 \322\224\262`\262\323\"\262\211E\207" [flyspell-get-casechars flyspell-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 0 buffer-substring-no-properties] 16 (#$ . 34093)])
#@145 Flyspell text between BEG and END.
This function is intended to work on small regions, as
determined by `flyspell-large-region'.
(fn BEG END)
(defalias 'flyspell-small-region #[514 "\212V\203
\262\262b\210\301`W\203Z \2037 \211\302U\2037 \303\304\305\306`Z_Z\"\"\210\301\262\202; \211T\262\307 \210\310\301!\210`\311v\210`W\203V `TV\203V \312u\210\210\202 \210\312u\210\203f \303\313!\210\307 )\207" [flyspell-issue-message-flag 0 100 message "Spell Checking...%d%%" floor 100.0 flyspell-word sit-for 1 -1 "Spell Checking completed."] 9 (#$ . 35575)])
#@39 The external Flyspell Ispell process.
(defvar flyspell-external-ispell-process nil (#$ . 36156))
(defvar flyspell-external-ispell-buffer nil)
(defvar flyspell-large-region-buffer nil)
(defvar flyspell-large-region-beg (point-min))
(defvar flyspell-large-region-end (point-max))
#@280 Mark words from a buffer listing incorrect words in order of appearance.
The list of incorrect words should be in `flyspell-external-ispell-buffer'.
(We finish by killing that buffer and setting the variable to nil.)
The buffer to mark them in is `flyspell-large-region-buffer'.
(defalias 'flyspell-external-point-words #[0 "\306\307 \310 \311 \312\313\230?\205 \314P\315\203 \316\202 \314\260\306r\nq\210eb\210\317\320\306\321#\203\344 \322\323!` \203E \324\325\326\327`_d\"#\210r\fq\210b\210\321\211\203\335 \330
\321#\203\274 \212\331u\210\332!\205e \333 )\211@\211GG\203\250 U\204\250 \334
\"\235\204\250 W\204\250 %\204\267 &\204\267 '\204\267 \212A@Sb\210\332\335!\205\244 \321)\203\267 \306\262\203\264 \336\306\321\"\210`\262\266\202M \337\340\341!R\211\n\235\203\317 \202\323 \211\nB\262\262 \306\262\202M \210)\266\202* \203\354 \324\342!\210)\211\203 \211@\324\343\"\210A\266\202\202\356 \210\344\n!\210\306\211)\207" [flyspell-large-region-beg case-fold-search flyspell-external-ispell-buffer flyspell-issue-message-flag flyspell-large-region-buffer flyspell-large-region-end nil flyspell-get-casechars ispell-get-otherchars ispell-get-many-otherchars-p "+\\(" "" "?" "+\\)" "*" re-search-forward "\\([^\n]+\\)\n" t match-string 1 message "Spell Checking...%d%% [%s]" floor 100.0 search-forward -1 looking-at flyspell-get-word split-string "[\\]" flyspell-word " -> " " - " int-to-string "Spell Checking completed." "%s: word not found" kill-buffer ispell-really-aspell ispell-really-hunspell ispell-really-enchant] 17 (#$ . 36441)])
#@28
(fn MISSPELLINGS-BUFFER)
(defalias 'flyspell-process-localwords #[257 "\303\304 \212eb\210\305\n\303\306#\203B \307 \303\310\311\306#\203= \312\313\224\313\225\"\262\313GW\203 \314\"\315\232\203 \211B\262\202 \266\202\n )rq\210\212\211\205o \211@eb\210\316\317Q\310\303\306#\203g \315\224\315\225|\210\202V \210A\266\202\202I \262+\207" [ispell-buffer-session-localwords case-fold-search ispell-words-keyword nil ispell-get-casechars search-forward t point-at-eol re-search-forward " *\\([^ ]+\\)" buffer-substring-no-properties 1 string-match 0 "^" "\n"] 11 (#$ . 38041)])
#@83 Check for adjacent duplicated words (doublons) in the given region.
(fn BEG END)
(defalias 'flyspell-check-region-doublons #[514 "\212b\210\300 \210\301v\210`W\203! \302\303\304#\203! \300 \210\301v\210\202\n \300 )\207" [flyspell-word -1 re-search-forward "\\<\\(\\w+\\)\\>[ \n \f]+\\1\\>" move] 6 (#$ . 38643)])
#@16
(fn BEG END)
(defalias 'flyspell-large-region #[514 "p\306\307!\211\310 \210\211q\210\311 \210\f\203 \312\313!\210q\210\314 \210
\206) &'(\2062 )*\315 \316 \317'\203M \320\235\204M \321\320'D\"\262*\203] \321\322\323*!D\"\262\324 \211\203\201 \325\326\"\203\201 \327\330\331\"P\211\235\203z \202} \211B\262\262\210\321+\"\262,\203\251 \321-\203\237 ,\332!\226D\202\246 ,\332!PC\"\262\333BC .\334\335/\317 \3170\203\304 \336\202\305 \337 & \262)\211\331=\203\356 \340!\210rq\210\341\"\210\342\"\210)\343 \202\361 \344\345!\266\203\207" [flyspell-external-ispell-buffer flyspell-large-region-buffer flyspell-large-region-beg flyspell-large-region-end flyspell-issue-message-flag ispell-local-dictionary get-buffer-create "*flyspell-region*" flyspell-accept-buffer-local-defs erase-buffer message "Checking region..." ispell-set-spellchecker-params ispell-get-ispell-args ispell-get-coding-system nil "-d" append "-p" expand-file-name ispell-get-extended-character-mode string-match "[^~]+$" "-T" match-string 0 symbol-name "\\.*" apply ispell-call-process-region "list" "-l" flyspell-process-localwords flyspell-delete-region-overlays flyspell-check-region-doublons flyspell-external-point-words error "Can't check region" ispell-dictionary ispell-current-dictionary ispell-local-pdict ispell-personal-dictionary ispell-current-personal-dictionary ispell-extra-args ispell-encoding8-command ispell-really-hunspell process-coding-system-alist ispell-program-name ispell-really-aspell] 17 (#$ . 38967)])
#@171 Flyspell text between BEG and END.
Make sure `flyspell-mode' is turned on if you want the highlight
of a misspelled word removed when you've corrected it.
(fn BEG END)
(defalias 'flyspell-region #[514 "\301 \210U?\205/ \212V\203 \262\262\203* \211ZV\203* \300\"\202. \302\")\207" [flyspell-large-region ispell-set-spellchecker-params flyspell-small-region] 5 (#$ . 40537) "r"])
#@24 Flyspell whole buffer.
(defalias 'flyspell-buffer #[0 "\300ed\"\207" [flyspell-region] 3 (#$ . 40939) nil])
(defvar flyspell-old-buffer-error nil)
(defvar flyspell-old-pos-error nil)
#@115 Go to the next previously detected error.
In general FLYSPELL-GOTO-NEXT-ERROR must be used after
FLYSPELL-BUFFER.
(defalias 'flyspell-goto-next-error #[0 "`dp=\203$ =\203$ U\203 \302\303!\210eb\210\202! \304v\210`\262W\203Y \305!\306\211\204K :\203K \307@!\203D \310\262\202. A\262\202. \211?\266\202\203Y T\262\202$ pb\210U\205i \302\311!\207" [flyspell-old-buffer-error flyspell-old-pos-error message "Restarting from beginning of buffer" 1 overlays-at nil flyspell-overlay-p t "No more miss-spelled word!"] 6 (#$ . 41129) nil])
#@58 Return true if O is an overlay used by flyspell.
(fn O)
(defalias 'flyspell-overlay-p #[257 "\300!\205\n \301\302\"\207" [overlayp overlay-get flyspell-overlay] 4 (#$ . 41689)])
#@67 Delete overlays used by flyspell in a given region.
(fn BEG END)
(defalias 'flyspell-delete-region-overlays #[514 "\300\301\302$\207" [remove-overlays flyspell-overlay t] 7 (#$ . 41876)])
#@43 Delete all the overlays used by flyspell.
(defalias 'flyspell-delete-all-overlays #[0 "\300ed\"\207" [flyspell-delete-region-overlays] 3 (#$ . 42073)])
#@64 Remove the flyspell overlay that are located at POS.
(fn POS)
(defalias 'flyspell-unhighlight-at #[257 "\203 \302!\211:\205 \303@!\203 \304@!\210\211A\262\202 \207\303 !\205) \304 !\207" [flyspell-persistent-highlight flyspell-overlay overlays-at flyspell-overlay-p delete-overlay] 4 (#$ . 42231)])
#@262 Return t if there is a text property at POS, not counting `local-map'.
If variable `flyspell-highlight-properties' is set to nil,
text with properties are not checked. This function is used to discover
if the character at POS has any other property.
(fn POS)
(defalias 'flyspell-properties-at-p #[257 "\300!\301\211\203( :\203( @\302=\203\" A:\203\" AA\262\202 \303\262\202 :\207" [text-properties-at t local-map nil] 5 (#$ . 42547)])
#@225 Allocate an overlay to highlight an incorrect word.
BEG and END specify the range in the buffer of that word.
FACE and MOUSE-FACE specify the `face' and `mouse-face' properties
for the overlay.
(fn BEG END FACE MOUSE-FACE)
(defalias 'make-flyspell-overlay #[1028 "\303\304\305\304%\306\307#\210\306\310#\210\306\311\305#\210\306\312\305#\210\306\313\314#\210\315\316\317\"\"\210\306\317#\210\320=\203P ;\203E \306\321 #\210\n;\203P \306\322\n#\210\211\207" [flyspell-mouse-map flyspell-before-incorrect-word-string flyspell-after-incorrect-word-string make-overlay nil t overlay-put face mouse-face flyspell-overlay evaporate help-echo "mouse-2: correct word at point" set-keymap-parent get-char-property keymap flyspell-incorrect before-string after-string] 10 (#$ . 43001)])
#@303 Set up an overlay on a misspelled word, in the buffer from BEG to END.
POSS is usually a list of possible spelling/correction lists,
as returned by `ispell-parse-output'.
It can also be the symbol `doublon', in the case where the word
is itself incorrect, but suspiciously repeated.
(fn BEG END POSS)
(defalias 'flyspell-highlight-incorrect-region #[771 "\303\304\305$?\205R \204 \306!?\205R TW\203< \307T\"\211:\203; \310@!\2034 \311@!\210\211A\262\202# \210\312!\210\313\314=\203M \315\202N \316\317$\211)\207" [inhibit-read-only flyspell-highlight-properties flyspell-overlay t run-hook-with-args-until-success flyspell-incorrect-hook flyspell-properties-at-p overlays-in flyspell-overlay-p delete-overlay flyspell-unhighlight-at make-flyspell-overlay doublon flyspell-duplicate flyspell-incorrect highlight] 8 (#$ . 43804)])
#@193 Set up an overlay on a duplicate misspelled word, in the buffer from BEG to END.
POSS is a list of possible spelling/correction lists,
as returned by `ispell-parse-output'.
(fn BEG END POSS)
(defalias 'flyspell-highlight-duplicate-region #[771 "\303\304\305$?\205# \204 \306!?\205# \307!\210\310\311\312$\211)\207" [inhibit-read-only flyspell-highlight-properties flyspell-overlay t run-hook-with-args-until-success flyspell-incorrect-hook flyspell-properties-at-p flyspell-unhighlight-at make-flyspell-overlay flyspell-duplicate highlight] 8 (#$ . 44660)])
(defvar flyspell-auto-correct-pos nil)
(defvar flyspell-auto-correct-region nil)
(defvar flyspell-auto-correct-ring nil)
(defvar flyspell-auto-correct-word nil)
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [make-variable-buffer-local flyspell-auto-correct-pos flyspell-auto-correct-region flyspell-auto-correct-ring flyspell-auto-correct-word] 2)
#@345 Correct the closest previous word that is highlighted as misspelled.
This function scans for a word which starts before point that has been
highlighted by Flyspell as misspelled. If it finds one, it proposes
a replacement for that word. With prefix arg N, check the Nth word
before point that's highlighted as misspelled.
(fn &optional ARG)
(defalias 'flyspell-check-previous-highlighted-word #[256 "``\247\203
\301W\203 \301\202 \302\211\3032\\ \304!\211\262\205[ U?\205[ \262eV\203 \305!\262\211:\203 \211@\262\211A\262\306!\2036 S\211\262\307U\2036 \310\303\311\"\210\2026 0\203n \212b\210\312 \210\302\313 )\202q \314\315!\207" [flyspell-word-cache-word 1 nil exit previous-overlay-change overlays-at flyspell-overlay-p 0 throw t ispell-word flyspell-word error "No word to correct before point"] 9 (#$ . 45605) "P"])
#@20
(fn CORRECTIONS)
(defalias 'flyspell-display-next-corrections #[257 "\301\302G\303W\203& @\232\203 GTB\262\304@Q\262A\262\202 \211:\203A \211@\305\211G\\\306\307%\266\211A\262\202& \310\311!\203N \311\312\"\202R \313\314\"\207" [flyspell-auto-correct-word "Corrections:" nil 80 " " put-text-property face flyspell-incorrect fboundp display-message no-log message "%s"] 11 (#$ . 46460)])
(defalias 'flyspell-abbrev-table #[0 "\203 \207\n\206 \207" [flyspell-use-global-abbrev-table-p global-abbrev-table local-abbrev-table] 1])
#@23
(fn NAME EXPANSION)
(defalias 'flyspell-define-abbrev #[514 "\300 \211\205\f \301\227#\207" [flyspell-abbrev-table define-abbrev] 7 (#$ . 47022)])
#@291 Correct the current word.
This command proposes various successive corrections for the
current word. If invoked repeatedly on the same position, it
cycles through the possible corrections of the current word.
See `flyspell-get-word' for details of how this finds the word to
spell-check.
(defalias 'flyspell-auto-correct-word #[0 "\306\300!\203& \307\310\"\203& \311 !\203& \204& \312\313\314\310#\315\232\203& \316!\207`d\n\317>\2040 \314\320 \210\f=\203\224 :\203\224 @ A\321!\210\211\\|\210
A\211@\211G \241\210b\210&\203y \322\323 \"\203s \324\323 #\210\202y \325 \"\210'!\210\326 \210\327
!\266\330`#\210`\211\266\202\202t\331 \211:\205r\211A@AA@@\314\211 ( \332\333!\210\332\334\335Q!\210\336)!\210(@\337\230\203\266 (A\211(\204\317 \340((:\203\334 \341(@!\262\211\310=\204j\211;\204j\211\204\362 \342\343!\210\202j\344AA@\"\314\211:\203i\211@\211\211@\232\204gGB\211A:\203 \211A\262\202\211@B\241\266\321!\210|\210'!\210&\203V\322\323 \"\203Q\324\323 #\210\202V\325\"\210\326 \210\327
B!\210\330\n` #\210\266\210`\345\310!)\266\204\262\207" [flyspell--prev-meta-tab-binding flyspell-generic-check-word-predicate last-command flyspell-auto-correct-region flyspell-auto-correct-pos flyspell-auto-correct-ring local-variable-p commandp t functionp where-is-internal flyspell-auto-correct-word nil [134217737] call-interactively (flyspell-auto-correct-word flyspell-auto-correct-previous-word) flyspell-accept-buffer-local-defs flyspell-unhighlight-at flyspell-already-abbrevp flyspell-abbrev-table flyspell-change-abbrev flyspell-define-abbrev flyspell-word flyspell-display-next-corrections flyspell-adjust-cursor-point flyspell-get-word ispell-send-string "%\n" "^" "\n" accept-process-output "" (*) ispell-parse-output error "Ispell: error in Ispell process" flyspell-sort ispell-pdict-save flyspell-abbrev-p flyspell-insert-function ispell-filter ispell-process] 15 (#$ . 47181) nil])
#@59 Holds the start of the first incorrect word before point.
(defvar flyspell-auto-correct-previous-pos nil (#$ . 49173))
#@124 Hook to track successive calls to `flyspell-auto-correct-previous-word'.
Sets `flyspell-auto-correct-previous-pos' to nil.
(defalias 'flyspell-auto-correct-previous-hook #[0 "\302\303\304\305#\210\306=?\205 \307\211\207" [this-command flyspell-auto-correct-previous-pos remove-hook pre-command-hook flyspell-auto-correct-previous-hook t flyspell-auto-correct-previous-word nil] 4 (#$ . 49299) nil])
#@133 Auto correct the first misspelled word that occurs before point.
But don't look beyond what's visible on the screen.
(fn POSITION)
(defalias 'flyspell-auto-correct-previous-word #[257 "\302 \303 \212\214}\210\304`!\210\305\306\307\310\211$\210\204J \311\312e\"\313\211\203@ \314!\2035 \315\316!\317\"\320=\204@ \242\262\243\262\202 \211\203H \316!\266\205d \212b\210\310\247\203\\ b\210\321 \210)`\211)*\207" [flyspell-auto-correct-previous-pos ispell-following-word window-start window-end overlay-recenter add-hook pre-command-hook flyspell-auto-correct-previous-hook t nil overlays-in dummy-value flyspell-overlay-p get-char-property overlay-start face flyspell-incorrect flyspell-auto-correct-word] 8 (#$ . 49708) "d"])
#@126 Pop up a menu of possible corrections for a misspelled word.
The word checked is the word at the mouse position.
(fn EVENT)
(defalias 'flyspell-correct-word #[257 "`\300!\210\301\"\207" [mouse-set-point flyspell-correct-word-before-point] 5 (#$ . 50461) "e"])
#@289 Pop up a menu of possible corrections for misspelled word before point.
If EVENT is non-nil, it is the mouse event that invoked this operation;
that controls where to put the menu.
If OPOINT is non-nil, restore point there after adjusting it for replacement.
(fn &optional EVENT OPOINT)
(defalias 'flyspell-correct-word-before-point #[512 "\302 \210\211\204\n `\262`\303 \211:\205x \211A@AA@@\304\211\305\306!\210\305\307\310Q!\210\311 !\210@\312\230\203) A\211\204= \313:\203H \314@!\262\211\315=\204r \211;\204r \211\204^ \316\317!\210\202r \320\321 #
&\210\322\315!)\266\204\207" [ispell-filter ispell-process flyspell-accept-buffer-local-defs flyspell-get-word nil ispell-send-string "%\n" "^" "\n" accept-process-output "" (*) ispell-parse-output t error "Ispell: error in Ispell process" flyspell-do-correct flyspell-emacs-popup ispell-pdict-save] 17 (#$ . 50732) nil])
#@81 The popup menu callback.
(fn REPLACE POSS WORD CURSOR-LOCATION START END SAVE)
(defalias 'flyspell-do-correct #[1799 "\304\267\202# \211b\210\305\207\211b\210\306\307\310Q!\210\306\311!\210\312!\210\313\211\207\314=\2041 \315=\203_ \306\316\310Q!\210\317\320\"\210 \204F \321 \312!\210\204Q C\211b\210\314=\205\251 \322!\207\203\245 \312!\210d:\204t \202w @GZZ\\ @\232\204\237 |\210b\210\n!\210 \203\237 \323\"\210\324#\207\211b\210\305\207" [ispell-pdict-modified-p ispell-buffer-local-name flyspell-insert-function flyspell-abbrev-p #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (ignore 7 save 12)) nil ispell-send-string "*" "\n" "#\n" flyspell-unhighlight-at (t) buffer session "@" add-to-list ispell-buffer-session-localwords buffer-name ispell-add-per-file-word-list flyspell-define-abbrev flyspell-adjust-cursor-point] 14 (#$ . 51640)])
#@37
(fn SAVE CURSOR-LOCATION OLD-MAX)
(defalias 'flyspell-adjust-cursor-point #[771 "Y\203\" dZ\\\211eW\203 e\202 \211dV\203 d\202 \211b\207b\207" [] 6 (#$ . 52580)])
#@45 The Emacs popup menu.
(fn EVENT POSS WORD)
(defalias 'flyspell-emacs-popup #[771 "\2040 \302 \2030 \303 \211A@\203 \211\202! \304@\305 \306\245\306#\210\303 \211A@AATD@D\262\266\307AA@\"\211:\205@ \310\311\"AAA@\312:\203[ \211\203[ \313@P\314D\315\316E\202\\ \317:\203j \320\321B\"\202k \211\262\322B\323 \324\325\n\206| #D\"@\207" [ispell-local-dictionary ispell-dictionary display-mouse-p mouse-position set-mouse-position frame-width 2 flyspell-sort mapcar #[257 "\211D\207" [] 3 "\n\n(fn CORRECT)"] nil "Save affix: " save ("Accept (session)" session) ("Accept (buffer)" buffer) (("Save word" save) ("Accept (session)" session) ("Accept (buffer)" buffer)) append "" "flyspell correction menu" x-popup-menu format "%s [%s]"] 15 (#$ . 52760)])
#@409 Check replacements for transposed characters.
If the text between BEG and END is equal to a correction suggested by
Ispell, after transposing two adjacent characters, correct the text,
and return t.
The third arg POSS is either the symbol `doublon' or a list of
possible corrections as returned by `ispell-parse-output'.
This function is meant to be added to `flyspell-incorrect-hook'.
(fn BEG END POSS)
(defalias 'flyspell-maybe-correct-transposition #[771 "\211:\205e \3002e {\301Z\302TW\203a H\262THI\210TI\210\3038\235\203G \212\304\305#b\210\306\305!\210)\307\300\310\"\210H\262THI\210TI\210T\262\202 \266\3020\207" [done 0 nil 2 + 1 transpose-chars throw t] 11 (#$ . 53538)])
#@408 Check replacements for doubled characters.
If the text between BEG and END is equal to a correction suggested by
Ispell, after removing a pair of doubled characters, correct the text,
and return t.
The third arg POSS is either the symbol `doublon' or a list of
possible corrections as returned by `ispell-parse-output'.
This function is meant to be added to `flyspell-incorrect-hook'.
(fn BEG END POSS)
(defalias 'flyspell-maybe-correct-doubling #[771 "\211:\205O \3002O {\301ZTW\203K HTHU\203D \302\301T#\302\303\\\"P\3038\235\203D \\b\210\304\305!\210\306\300\307\"\210T\262\202 \266\3100\207" [done 0 substring 2 delete-char 1 throw t nil] 11 (#$ . 54267)])
#@19
(fn TABLE WORD)
(defalias 'flyspell-already-abbrevp #[514 "\300\"\211\205\n \2119\207" [abbrev-symbol] 5 (#$ . 54959)])
#@22
(fn TABLE OLD NEW)
(defalias 'flyspell-change-abbrev #[771 "\300\"L\207" [abbrev-symbol] 6 (#$ . 55089)])
(provide 'flyspell)
Mini Shell