ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/textmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/textmodes/flyspell.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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\332\333\334& \210\314\335\316\317\336DD\337\312\303\333\340\322\323& \210\314\341\316\317\342DD\343\312\303\333\344\322\345& \210\314\346\316\317\347DD\350\312\303\322\351&\210\314\352\316\317\353DD\354\312\303\322\323&\210\314\355\316\317\356DD\357\312\303\322\323&\210\314\360\316\317\361DD\362\312\303\333\340\322\363& \210\314\364\316\317\365DD\366\312\303\322\367&\210\314\370\316\317\371DD\372\312\303\333\340\322\373& \210\314\374\316\317\375DD\376\312\303\333\340\322\377& \210\314\201@ \316\317\201A DD\201B \312\303\322\323&\210\314\201C \316\317\201D DD\201E \312\303\322\323&\210\314\201F \316\317\201G DD\201H \312\303\333\340\322\201I & \210\314\201J \316\317\201K DD\201L \312\303\333\340\322\201M & \210\314\201N \316\317\201O DD\201P \312\303\333\340\322\201Q & \210\314\201R \316\317\201S DD\201T \312\303\322\323&\210\314\201U \316\317\201V DD\201W \312\303\333\340\322\201X & \210\314\201Y \316\317\201Z DD\201[ \312\303\333\340\322\323& \210\314\201\\ \316\317\201] DD\201^ \312\303\333\340\322\323& \210\314\201_ \316\317\201` DD\201a \312\303\322\201b &\210\314\201c \316\317\201d DD\201e \312\303\333\340\322\201f & \210\314\201g \316\317\201h DD\201i \312\303\322\317&\210\314\201j \316\317\201k DD\201l \312\303\322\201m &\210\314\201n \316\317\201o DD\201p \312\303\322\201q &\210\314\201r \316\317\201s DD\201t \312\303\322\323\201u \201v \201w \201x & \210\314\201y \316\317\201z DD\201{ \322\201| \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-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)) :version "24.1" flyspell-sort-corrections #[0 "\300\207" [nil] 1] "Non-nil means, sort the corrections alphabetically before popping them." "21.1" flyspell-duplicate-distance #[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." "24.5" (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." 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'." (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 `http://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] 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 (#$ . 9339))
(byte-code "\300\301!\210\302\303\301\304#\210\305\211\203, \211@\303N\203% \301N\204% \306\301\303N#\210A\266\202\202 \210\307\303\301\310#\210\306\311\312\313#\210\306\314\312\313#\207" [make-variable-buffer-local flyspell-generic-check-word-predicate defvaralias flyspell-generic-check-word-p nil (saved-value saved-variable-comment) put make-obsolete-variable "25.1" mail-mode flyspell-mode-predicate mail-mode-flyspell-verify message-mode] 7)
#@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 (#$ . 10095)])
(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 (#$ . 10704)])
(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 (#$ . 10990)])
(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 (#$ . 11609)])
#@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) (#$ . 11959))
#@72 Used for `flyspell-generic-check-word-predicate' in programming modes.
(defalias 'flyspell-generic-progmode-verify #[0 "\301`S\302\"\211>\207" [flyspell-prog-text-faces get-text-property face] 3 (#$ . 12136)])
#@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 (#$ . 12353) nil])
#@28 Overlay compatibility kit.
(autoload 'make-overlay "overlay" '(#$ . 12767) t)
#@28 Overlay compatibility kit.
(autoload 'overlayp "overlay" '(#$ . 12851) t)
#@28 Overlay compatibility kit.
(autoload 'overlays-in "overlay" '(#$ . 12931) t)
#@28 Overlay compatibility kit.
(autoload 'delete-overlay "overlay" '(#$ . 13014) t)
#@28 Overlay compatibility kit.
(autoload 'overlays-at "overlay" '(#$ . 13100) t)
#@28 Overlay compatibility kit.
(autoload 'overlay-put "overlay" '(#$ . 13183) t)
#@28 Overlay compatibility kit.
(autoload 'overlay-get "overlay" '(#$ . 13266) t)
#@28 Overlay compatibility kit.
(autoload 'previous-overlay-change "overlay" '(#$ . 13349) t)
#@48 Keymap for Flyspell to put on erroneous words.
(defvar flyspell-mouse-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key [down-mouse-2] flyspell-correct-word [mouse-2] undefined] 5) (#$ . 13444))
#@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) (#$ . 13693))
#@68 Non-nil means that the `-' char is considered as a word delimiter.
(defvar flyspell-consider-dash-as-word-delimiter-flag nil (#$ . 14174))
(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 (#$ . 15185))
(make-variable-buffer-local 'flyspell-mode)
#@1212 Toggle on-the-fly spell checking (Flyspell mode).
With a prefix argument ARG, enable Flyspell mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
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 (#$ . 15371) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@178 Hook run after entering or leaving `flyspell-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar flyspell-mode-hook nil (#$ . 17288))
(byte-code "\301\302\303\304\211%\207" [flyspell-mode-map 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 (#$ . 17638)])
#@41 Unconditionally turn off Flyspell mode.
(defalias 'turn-off-flyspell #[0 "\300\301!\207" [flyspell-mode -1] 2 (#$ . 17766)])
(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 (#$ . 17981)])
#@61 The buffer in which the last flyspell operation took place.
(defvar flyspell-last-buffer nil (#$ . 18163))
(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 "\n\n(fn &optional FORCE)"])
(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 (#$ . 19080)])
#@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 (#$ . 20359)])
#@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 (#$ . 20600) "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 (#$ . 20985)])
#@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 (#$ . 21250) "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 (#$ . 21958))
#@37 Point before running `this-command'
(defvar flyspell-pre-point nil (#$ . 22048))
#@38 Column before running `this-command'
(defvar flyspell-pre-column nil (#$ . 22135))
(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 (#$ . 22346))
#@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 (#$ . 22454) 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 (#$ . 22668)])
#@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 (#$ . 23173)])
(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 (#$ . 24240)])
#@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 (#$ . 24437)])
#@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 (#$ . 24784)])
(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 "\n\n(fn MSG OBJ)"])
(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} \3061v \307\n\307\310 \203 \212\fb\210\311 \210)\312 \203* \311 \210p`\202@ \307\211\n9\203@ \n\313N\203@ \314\315\316 \204l :\203l @@@A\317\"\203b \212b\210\311 \210)A\266\202@ \211\211)\262)0\207\210\320\321\322!\207" [flyspell-mode inhibit-quit this-command deactivate-mark flyspell-pre-point flyspell-pre-pre-buffer (quit) nil flyspell-check-pre-word-p flyspell-word 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 (#$ . 27228) nil])
(defalias 'flyspell-notify-misspell #[514 "\211;\203 \211\202 \203 \302AA@\303\"\202 \211AA@ \205$ \304\305#\207" [flyspell-sort-corrections flyspell-issue-message-flag sort string< message "misspelling `%s' %S"] 7 "\n\n(fn WORD POSS)"])
(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 "\n\n(fn WORD BOUND &optional IGNORE-CASE)"])
(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 "\n\n(fn WORD BOUND)"])
#@375 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.
(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\2023A@\262AA@\262@\262 \314=\203J eV\203\303 Sf\315>\204\303 \f\203\303 \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\303 \212b\210\321Z\212\322\311x)[#\211eY\205\252 \323\313#\211\205\263 \211U?\266\202)\203\303 \324\325#\210\311\2023,=\203\335 -=\203\335 .\230\203\335 /\2023 \314=\203\374 \326!\203\374 \327!\210V\203\370 \327S!\210\313\2023,-\211.\204=\330\331!\210\330\332\333Q!\210\3340\311\"\210\3350!\210 @\336\230\203 A\211\204/\337 :\203D\340 @!\262\202D\211\341\311\211F\262\313=\203`\313/\327!\210V\203\\\327S!\210\313\202%;\203\2001\203\200\313/\327!\210V\203|\327S!\210\313\202%\204\232\313/\327!\210V\203\226\327S!\210\313\202%2\342W\203\271\212b\210\323e\")\204\336\212b\210\343d\")\204\3362\342V\203\370\212b\210\3232Z\")\204\336\212b\210\3432\\\")\203\370\311/1\203\357\344#\210\202\364\345\346\"\210\311\202%\311/1\203 \324:\203A@\250\203\347A@\350#\202#\210\202$\351\"\210\311b\2103\2030\3113\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 fboundp 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-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 (#$ . 29140) (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 (#$ . 31904)])
(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)
#@375 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').
(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 (#$ . 32389)])
#@50 Flyspell text between BEG and END.
(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 (#$ . 33591)])
#@39 The external Flyspell Ispell process.
(defvar flyspell-external-ispell-process nil (#$ . 34077))
(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 \306r\nq\210eb\210\310\311\306\312#\203\257 \313\314!` \203( \315\316\317\320`_d\"#\210r\fq\210b\210\312\211\203\250 \321
\312#\203\207 \212\322u\210\323 )\211@\211GGU\204w \324 \"\235\204w W\204w \204\202 \212A@Sb\210\325\326!\205s \312)\203\202 \306\262\327\306\312\"\210`\262\266\2020 \330\331\332!R\211\235\203\232 \202\236 \211B\262\262\306\262\2020 \210)\266\202
\203\267 \315\333!\210)\211\203\313 \211@\315\334\"\210A\266\202\202\271 \210\335\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 ispell-get-otherchars re-search-forward "\\([^\n]+\\)\n" t match-string 1 message "Spell Checking...%d%% [%s]" floor 100.0 search-forward -1 flyspell-get-word split-string looking-at "[\\]" flyspell-word " -> " " - " int-to-string "Spell Checking completed." "%s: word not found" kill-buffer ispell-really-aspell] 14 (#$ . 34362)])
(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 "\n\n(fn MISSPELLINGS-BUFFER)"])
#@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 (#$ . 36294)])
(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 "\n\n(fn BEG END)"])
#@50 Flyspell text between BEG and END.
(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 (#$ . 38172) "r"])
#@24 Flyspell whole buffer.
(defalias 'flyspell-buffer #[0 "\300ed\"\207" [flyspell-region] 3 (#$ . 38453) 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 (#$ . 38643) 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 (#$ . 39203)])
#@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 (#$ . 39390)])
#@43 Delete all the overlays used by flyspell.
(defalias 'flyspell-delete-all-overlays #[0 "\300ed\"\207" [flyspell-delete-region-overlays] 3 (#$ . 39587)])
#@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 (#$ . 39745)])
#@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 (#$ . 40061)])
#@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\306\315#\210\316=\203G ;\203< \306\317 #\210\n;\203G \306\320\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" keymap flyspell-incorrect before-string after-string] 10 (#$ . 40515)])
#@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 (#$ . 41259)])
#@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 (#$ . 42115)])
(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 (#$ . 43060) "P"])
(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 "\n\n(fn CORRECTIONS)"])
(defalias 'flyspell-abbrev-table #[0 "\203 \207\n\206 \207" [flyspell-use-global-abbrev-table-p global-abbrev-table local-abbrev-table] 1])
(defalias 'flyspell-define-abbrev #[514 "\300 \211\205\f \301\227#\207" [flyspell-abbrev-table define-abbrev] 7 "\n\n(fn NAME EXPANSION)"])
#@102 Correct the current word.
This command proposes various successive corrections for the current word.
(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\317 \210\n=\203\213 :\203\213 @ A\320!\210\211\\|\210\fA\211@\211G \241\210b\210
\203p \321\322 \"\203j \323\322 #\210\202p \324 \"\210&!\210\325 \210\326\f!\266\327`#\210`\211\266\202\202v\330 \211:\205t\211A@AA@@\314\211 ' \331\332!\210\331\333\334Q!\210\335(!\210'@\336\230\203\255 'A\211'\204\306 \337'':\203\323 \340'@!\262\211\310=\204l\211;\204l\211\204\351 \341\342!\210\202l)\203\370 \343AA@\344\"\202\374 \211AA@\314\211:\203k\211@\211\211@\232\204iGB\211A:\203!\211A\262\202\211@B\241\266\320!\210|\210&!\210
\203X\321\322 \"\203S\323\322 #\210\202X\324\"\210\325 \210\326\fB!\210\327\n` #\210\266\210`\345\310!)\266\204\262\207" [flyspell--prev-meta-tab-binding flyspell-generic-check-word-predicate flyspell-auto-correct-pos flyspell-auto-correct-region flyspell-auto-correct-ring flyspell-abbrev-p local-variable-p commandp t fboundp where-is-internal flyspell-auto-correct-word nil [134217737] call-interactively 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-ajust-cursor-point flyspell-get-word ispell-send-string "%\n" "^" "\n" accept-process-output "" (*) ispell-parse-output error "Ispell: error in Ispell process" sort string< ispell-pdict-save flyspell-insert-function ispell-filter ispell-process flyspell-sort-corrections] 15 (#$ . 44606) nil])
#@59 Holds the start of the first incorrect word before point.
(defvar flyspell-auto-correct-previous-pos nil (#$ . 46366))
#@123 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 (#$ . 46492) 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 (#$ . 46900) "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 (#$ . 47653) "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 (#$ . 47924) nil])
#@81 The popup menu callback.
(fn REPLACE POSS WORD CURSOR-LOCATION START END SAVE)
(defalias 'flyspell-do-correct #[1799 "\304=\203\f \211b\210\305\207\306=\203* \211b\210\307\310\311Q!\210\307\312!\210\313!\210\314\211\207\315=\2048 \316=\203f \307\317\311Q!\210\320\321\"\210 \204M \322 \313!\210\204X C\211b\210\315=\205\260 \323!\207\203\254 \313!\210d:\204{ \202~ @GZZ\\ @\232\204\246 |\210b\210\n!\210 \203\246 \324\"\210\325#\207\211b\210\305\207" [ispell-pdict-modified-p ispell-buffer-local-name flyspell-insert-function flyspell-abbrev-p ignore nil save 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-ajust-cursor-point] 14 (#$ . 48832)])
(defalias 'flyspell-ajust-cursor-point #[771 "Y\203\" dZ\\\211eW\203 e\202 \211dV\203 d\202 \211b\207b\207" [] 6 "\n\n(fn SAVE CURSOR-LOCATION OLD-MAX)"])
#@45 The Emacs popup menu.
(fn EVENT POSS WORD)
(defalias 'flyspell-emacs-popup #[771 "\2040 \303 \2030 \304 \211A@\203 \211\202! \305@\306 \307\245\307#\210\304 \211A@AATD@D\262\266\203> \310AA@\311\"\202B AA@\211:\205K \312\313\"AAA@\314:\203f \211\203f \315@P\316D\317\320E\202g \321:\203u \322\323B\"\202v \211\262\324B\325 \326\327\n \206\207 \n#D\"@\207" [flyspell-sort-corrections ispell-local-dictionary ispell-dictionary display-mouse-p mouse-position set-mouse-position frame-width 2 sort string< 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 (#$ . 49853)])
#@71 The XEmacs popup menu.
(fn POSS WORD CURSOR-LOCATION START END SAVE)
(defalias 'flyspell-xemacs-popup #[1542 "\203 \303AA@\304\"\202 AA@\211:\2053 \305\306\307\310\311\312\f\f\f\f\f\f&\313\"\314\315%\"AAA@\316:\203_ \211\203_ \312\317@P\320\321\322D
\257\323#\202u \312\324\320\325\322D
\257\323#\312\326\320\327\322D\257\323#\312\330\320\331\322D\257\323#:\203\262 \332\333F\"\202\266 E\266\203\334\335\336\f \206\302 \n#B!\207" [flyspell-sort-corrections ispell-local-dictionary ispell-dictionary sort string< mapcar make-byte-code 257 "\306\307\310\300D\301\302\303\304\305\257\311#\207" vconcat vector [vector flyspell-do-correct quote t] 11 "\n\n(fn CORRECT)" nil "Save affix: " flyspell-do-correct 'save quote t "Save word" 'save "Accept (session)" 'session "Accept (buffer)" 'buffer append "-" popup-menu format "%s [%s]"] 22 (#$ . 50678)])
#@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 (#$ . 51616)])
#@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:\205N \3002N {\301ZTW\203J HTHU\203C \301TO\302\\\303OP\3028\235\203C \\b\210\304\305!\210\306\300\307\"\210T\262\202 \266\3030\207" [done 0 2 nil delete-char 1 throw t] 10 (#$ . 52345)])
(defalias 'flyspell-already-abbrevp #[514 "\300\"\211\205\n \2119\207" [abbrev-symbol] 5 "\n\n(fn TABLE WORD)"])
(defalias 'flyspell-change-abbrev #[771 "\300\"L\207" [abbrev-symbol] 6 "\n\n(fn TABLE OLD NEW)"])
(provide 'flyspell)
Kontol Shell Bypass