;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:25:16 2007 ;;; from file /home/cyd/emacs/lisp/textmodes/flyspell.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`flyspell.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\301\312\313& \207" [require ispell custom-declare-group flyspell nil "Spell checking on the fly." :tag "FlySpell" :prefix "flyspell-" :group processes] 12) #@112 How Flyspell should indicate misspelled words. Non-nil means use highlight, nil means use minibuffer messages. (custom-declare-variable 'flyspell-highlight-flag 't '(#$ . 792) :group 'flyspell :type 'boolean) #@157 Non-nil means Flyspell reports a repeated word as an error. Detection of repeated words is not implemented in "large" regions; see `flyspell-large-region'. (custom-declare-variable 'flyspell-mark-duplications-flag 't '(#$ . 1008) :group 'flyspell :type 'boolean) #@73 Non-nil means, sort the corrections alphabetically before popping them. (custom-declare-variable 'flyspell-sort-corrections 'nil '(#$ . 1277) :group 'flyspell :version "21.1" :type 'boolean) #@442 The maximum distance for finding duplicates of unrecognized words. This applies to the feature that when a word is not found in the dictionary, if the same spelling occurs elsewhere in the buffer, Flyspell uses a different face (`flyspell-duplicate') to highlight it. This variable specifies how far to search to find such a duplicate. -1 means no limit (search the whole buffer). 0 means do not search for duplicate unrecognized spellings. (custom-declare-variable 'flyspell-duplicate-distance '-1 '(#$ . 1475) :group 'flyspell :version "21.1" :type 'number) #@75 The number of seconds to wait before checking, after a "delayed" command. (custom-declare-variable 'flyspell-delay '3 '(#$ . 2041) :group 'flyspell :type 'number) #@157 Non-nil means misspelled words remain highlighted until corrected. If this variable is nil, only the most recently detected misspelled word is highlighted. (custom-declare-variable 'flyspell-persistent-highlight 't '(#$ . 2211) :group 'flyspell :type 'boolean) #@82 Non-nil means highlight incorrect words even if a property exists for this word. (custom-declare-variable 'flyspell-highlight-properties 't '(#$ . 2478) :group 'flyspell :type 'boolean) #@86 The standard list of delayed commands for Flyspell. See `flyspell-delayed-commands'. (custom-declare-variable 'flyspell-default-delayed-commands ''(self-insert-command delete-backward-char backward-or-forward-delete-char delete-char scrollbar-vertical-drag backward-delete-char-untabify) '(#$ . 2670) :group 'flyspell :version "21.1" :type '(repeat (symbol))) #@172 List of commands that are "delayed" for Flyspell mode. After these commands, Flyspell checking is delayed for a short time, whose length is specified by `flyspell-delay'. (custom-declare-variable 'flyspell-delayed-commands 'nil '(#$ . 3037) :group 'flyspell :type '(repeat (symbol))) #@94 The standard list of deplacement commands for Flyspell. See `flyspell-deplacement-commands'. (custom-declare-variable 'flyspell-default-deplacement-commands ''(next-line previous-line scroll-up scroll-down) '(#$ . 3327) :group 'flyspell :version "21.1" :type '(repeat (symbol))) #@173 List of commands that are "deplacement" for Flyspell mode. After these commands, Flyspell checking is performed only if the previous command was not the very same command. (custom-declare-variable 'flyspell-deplacement-commands 'nil '(#$ . 3613) :group 'flyspell :version "21.1" :type '(repeat (symbol))) #@76 Non-nil means that Flyspell should display a welcome message when started. (custom-declare-variable 'flyspell-issue-welcome-flag 't '(#$ . 3924) :group 'flyspell :type 'boolean) #@65 Non-nil means that Flyspell emits messages when checking words. (custom-declare-variable 'flyspell-issue-message-flag 't '(#$ . 4108) :group 'flyspell :type 'boolean) #@388 List of functions to be called when incorrect words are encountered. Each function is given three arguments. The first two arguments are the beginning and the end of the incorrect region. The third is either the symbol `doublon' or the list of possible corrections as returned by `ispell-parse-output'. If any of the functions return non-nil, the word is not highlighted as incorrect. (custom-declare-variable 'flyspell-incorrect-hook 'nil '(#$ . 4282) :group 'flyspell :version "21.1" :type 'hook) #@447 A string that is the name of the default dictionary. This is passed to the `ispell-change-dictionary' when flyspell is started. If the variable `ispell-local-dictionary' or `ispell-dictionary' is non-nil when flyspell is started, the value of that variable is used instead of `flyspell-default-dictionary' to select the default dictionary. Otherwise, if `flyspell-default-dictionary' is nil, it means to use Ispell's ultimate default dictionary. (custom-declare-variable 'flyspell-default-dictionary 'nil '(#$ . 4790) :group 'flyspell :version "21.1" :type '(choice string (const :tag "Default" nil))) #@68 A string that is the regular expression that matches TeX commands. (custom-declare-variable 'flyspell-tex-command-regexp '"\\(\\(begin\\|end\\)[ ]*{\\|\\(cite[a-z*]*\\|label\\|ref\\|eqref\\|usepackage\\|documentclass\\)[ ]*\\(\\[[^]]*\\]\\)?{[^{}]*\\)" '(#$ . 5398) :group 'flyspell :version "21.1" :type 'string) #@235 Non-nil means check even inside TeX math environment. TeX math environments are discovered by the TEXMATHP that implemented inside the texmathp.el Emacs package. That package may be found at: http://strw.leidenuniv.nl/~dominik/Tools (custom-declare-variable 'flyspell-check-tex-math-command 'nil '(#$ . 5721) :group 'flyspell :type 'boolean) #@63 List of dictionary names that consider `-' as word delimiter. (custom-declare-variable 'flyspell-dictionaries-that-consider-dash-as-word-delimiter ''("francais" "deutsch8" "norsk") '(#$ . 6070) :group 'flyspell :version "21.1" :type '(repeat (string))) #@51 If non-nil, add correction to abbreviation table. (custom-declare-variable 'flyspell-abbrev-p 'nil '(#$ . 6329) :group 'flyspell :version "21.1" :type 'boolean) #@63 If non-nil, prefer global abbrev table to local abbrev table. (custom-declare-variable 'flyspell-use-global-abbrev-table-p 'nil '(#$ . 6496) :group 'flyspell :version "21.1" :type 'boolean) #@115 String displayed on the modeline when flyspell is active. Set this to nil if you don't want a modeline indicator. (custom-declare-variable 'flyspell-mode-line-string '" Fly" '(#$ . 6693) :group 'flyspell :type '(choice string (const :tag "None" nil))) #@425 The threshold that determines if a region is small. If the region is smaller than this number of characters, `flyspell-region' checks the words sequentially using regular flyspell methods. Else, if the region is large, a new Ispell process is spawned for speed. Doubled words are not detected in a large region, because Ispell does not check for them. If `flyspell-large-region' is nil, all regions are treated as small. (custom-declare-variable 'flyspell-large-region '1000 '(#$ . 6952) :group 'flyspell :version "21.1" :type '(choice number (const :tag "All small" nil))) #@58 Function for inserting word by flyspell upon correction. (custom-declare-variable 'flyspell-insert-function '#'insert '(#$ . 7535) :group 'flyspell :type 'function) #@53 String used to indicate an incorrect word starting. (custom-declare-variable 'flyspell-before-incorrect-word-string 'nil '(#$ . 7706) :group 'flyspell :type '(choice string (const nil))) #@51 String used to indicate an incorrect word ending. (custom-declare-variable 'flyspell-after-incorrect-word-string 'nil '(#$ . 7899) :group 'flyspell :type '(choice string (const nil))) #@57 Non-nil means that flyspell uses M-TAB to correct word. (custom-declare-variable 'flyspell-use-meta-tab 't '(#$ . 8089) :group 'flyspell :type 'boolean) #@47 The key binding for flyspell auto correction. (custom-declare-variable 'flyspell-auto-correct-binding '[(control 59)] '(#$ . 8248) :group 'flyspell) #@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 (#$ . 8404)) (byte-code "\300\301!\210\302\303\301\"\210\304\305\306\307#\210\304\310\306\307#\207" [make-variable-buffer-local flyspell-generic-check-word-predicate defvaralias flyspell-generic-check-word-p 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 #[nil "\212eb\210\304\305\306!\307Q\310\311#\210`)\212db\210\312 \310\311#\210`)` W\2037\212\313 \210\314\315!)\205J`\316\225V\202J`\nV\203A\310\202J\212\313 \210\314\317!)?*\207" [mail-header-separator message-signature-separator signature-begin header-end re-search-forward "^" regexp-quote "$" nil t re-search-backward beginning-of-line looking-at "^Subject:" 0 "[>}|]\\|To:"] 5 (#$ . 8982)]) (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 #[nil "\212\300v\210\301\302!)?\207" [-1 looking-at "@"] 2 (#$ . 9576)]) (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 #[nil "\212\302\303\304\305#)?\205-\212\306 \304\210\306 \307 \210\310\311\305#\205+ \312\224Y\205+ \312\225X+?\207" [e this re-search-backward "^[ ]*%%%[ ]+Local" nil t point-marker beginning-of-line re-search-forward "\\\\\\(cite\\|label\\|ref\\){[^}]*}" 0] 4 (#$ . 9837)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put sgml-mode flyspell-mode-predicate sgml-mode-flyspell-verify html-mode] 4) #@73 Function used for `flyspell-generic-check-word-predicate' in SGML mode. (defalias 'sgml-mode-flyspell-verify #[nil "\212\303 \304 \210\303 \305\210\303 \211b\210\306\307\310#\203\"\311\224\nU\206U\nb\210\312\313 \310#\2034\311\225\nU\206U\nb\210\306\314\310#\205U\311\224\nU\205U\nb\210\312\315 \310#\205U\311\225\nU,?\207" [e s this point-marker beginning-of-line nil re-search-forward "[^<]*>" t 0 re-search-backward "<[^>]*" "[^&]*;" "&[^;]*"] 5 (#$ . 10372)]) #@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) (#$ . 10855)) #@72 Used for `flyspell-generic-check-word-predicate' in programming modes. (defalias 'flyspell-generic-progmode-verify #[nil "\302`\303\"\211 >)\207" [f flyspell-prog-text-faces get-text-property face] 4 (#$ . 11032)]) #@51 Turn on `flyspell-mode' for comments and strings. (defalias 'flyspell-prog-mode #[nil "\301\302\303!\210\304\305!\207" [flyspell-generic-check-word-predicate flyspell-generic-progmode-verify flyspell-mode 1 run-hooks flyspell-prog-mode-hook] 2 (#$ . 11254) nil]) #@28 Overlay compatibility kit. (autoload 'make-overlay "overlay" '(#$ . 11524) t) #@28 Overlay compatibility kit. (autoload 'overlayp "overlay" '(#$ . 11608) t) #@28 Overlay compatibility kit. (autoload 'overlays-in "overlay" '(#$ . 11688) t) #@28 Overlay compatibility kit. (autoload 'delete-overlay "overlay" '(#$ . 11771) t) #@28 Overlay compatibility kit. (autoload 'overlays-at "overlay" '(#$ . 11857) t) #@28 Overlay compatibility kit. (autoload 'overlay-put "overlay" '(#$ . 11940) t) #@28 Overlay compatibility kit. (autoload 'overlay-get "overlay" '(#$ . 12023) t) #@28 Overlay compatibility kit. (autoload 'previous-overlay-change "overlay" '(#$ . 12106) t) #@48 Keymap for Flyspell to put on erroneous words. (defvar flyspell-mouse-map (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [down-mouse-2] flyspell-correct-word] 4) (#$ . 12201)) #@60 Minor mode keymap for Flyspell mode--for the whole buffer. (defvar flyspell-mode-map (byte-code "\303  \203 \304\305\306#\210\304\n\307#\210\304\310\311#\210\304\312\306#\210\304\313\314#\210)\207" [map 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] 4) (#$ . 12415)) #@69 *Non-nil means that the `-' char is considered as a word delimiter. (defvar flyspell-consider-dash-as-word-delimiter-flag nil (#$ . -12899)) (byte-code "\301\302!\210\303B\304\303!\204\305\303\306\"\210\301\303!\210\307B\304\307!\204&\305\307\306\"\210\301\307!\210\310\311\312\313\314\315%\210\316\317\320\311#\210\310\321\322\323\314\315%\210\316\324\320\321#\210\325B\304\325!\204U\305\325\306\"\210\306\207" [current-load-list make-variable-buffer-local flyspell-consider-dash-as-word-delimiter-flag flyspell-dash-dictionary default-boundp set-default nil flyspell-dash-local-dictionary custom-declare-face flyspell-incorrect ((((class color)) (:foreground "OrangeRed" :bold t :underline t)) (t (:bold t))) "Face used for marking a misspelled word in Flyspell." :group flyspell put flyspell-incorrect-face face-alias flyspell-duplicate ((((class color)) (:foreground "Gold3" :bold t :underline t)) (t (:bold t))) "Face used for marking a misspelled word that appears twice in the buffer.\nSee also `flyspell-duplicate-distance'." flyspell-duplicate-face flyspell-overlay] 6) #@95 Non-nil if Flyspell mode is enabled. Use the command `flyspell-mode' to change this variable. (defvar flyspell-mode nil (#$ . 13994)) (make-variable-buffer-local 'flyspell-mode) #@1091 Minor mode performing on-the-fly spelling checking. This spawns a single Ispell process and checks each word. The default flyspell behavior is to highlight incorrect words. With no argument, this command toggles Flyspell mode. With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive. 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 is entered. Remark: `flyspell-mode' uses `ispell-mode'. Thus all Ispell options are valid. For instance, a personal 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 .emacs file. \[flyspell-region] checks all words inside a region. \[flyspell-buffer] checks the whole buffer. (defalias 'flyspell-mode #[(&optional arg) "\302=\203 ?\202%\203\303!\304V\202% \204\305\202%\306\307\301\"\210\310\211\2030\311 \210\2023\312 \210\313\314 \203=\315\202>\316\"\210\317 \203R\306\320 \203O\321\202P\322\"\210\323 \210 \207" [arg flyspell-mode toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil flyspell-mode-on flyspell-mode-off run-hooks flyspell-mode-hook flyspell-mode-on-hook flyspell-mode-off-hook called-interactively-p "Flyspell mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 14180) (list (or current-prefix-arg 'toggle))]) (add-minor-mode 'flyspell-mode 'flyspell-mode-line-string flyspell-mode-map) #@40 Unconditionally turn on Flyspell mode. (defalias 'turn-on-flyspell #[nil "\300\301!\207" [flyspell-mode 1] 2 (#$ . 15975)]) #@41 Unconditionally turn off Flyspell mode. (defalias 'turn-off-flyspell #[nil "\300\301!\207" [flyspell-mode -1] 2 (#$ . 16105)]) (byte-code "\301\302\303\"\210\304B\305\304!\204\306\304\307\"\210\307\207" [current-load-list custom-add-option text-mode-hook turn-on-flyspell flyspell-buffers default-boundp set-default nil] 3) #@25 Is BUFFER a minibuffer? (defalias 'flyspell-minibuffer-p #[(buffer) "\302\303\"\211:\205\304 @!)\207" [buffer ws get-buffer-window-list t window-minibuffer-p] 4 (#$ . 16439)]) #@61 The buffer in which the last flyspell operation took place. (defvar flyspell-last-buffer nil (#$ . 16625)) (defalias 'flyspell-accept-buffer-local-defs #[(&optional force) "\204 p=?\205.pr\306 \210)\n =\205\f =?\205.   \206( \235\211\207" [force flyspell-last-buffer flyspell-dash-dictionary ispell-dictionary flyspell-dash-local-dictionary ispell-local-dictionary ispell-accept-buffer-local-defs flyspell-dictionaries-that-consider-dash-as-word-delimiter flyspell-consider-dash-as-word-delimiter-flag] 2]) (defalias 'flyspell-hack-local-variables-hook #[nil "\300\301!\207" [flyspell-accept-buffer-local-defs force] 2]) (defalias 'flyspell-kill-ispell-hook #[nil "\303\304 \303\211\203\n@r q\210\305\306!\210)\nA\211\204 *\303\207" [flyspell-last-buffer buf #1=#:--cl-dolist-temp-- nil buffer-list kill-local-variable flyspell-word-cache-word] 3]) (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 #[nil "\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\203F $)%\203q&\203qt\203q\331\332\325\333#'\334\335'\203m\336\337\340'!\"\202n\341\"\210)\342\343!\207" [ispell-highlight-face ispell-local-dictionary ispell-dictionary flyspell-default-dictionary major-mode mode-predicate ispell-maybe-find-aspell-dictionaries 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 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." run-hooks flyspell-mode-hook flyspell-generic-check-word-predicate flyspell-issue-message-flag flyspell-issue-welcome-flag binding] 7 (#$ . 17566)]) #@56 Install the standard set of Flyspell delayed commands. (defalias 'flyspell-delay-commands #[nil "\302\303\"\210\302\303 \"\207" [flyspell-default-delayed-commands flyspell-delayed-commands mapcar flyspell-delay-command] 3 (#$ . 18872)]) #@227 Set COMMAND to be delayed, for Flyspell. When flyspell `post-command-hook' is invoked because a delayed command as been used the current word is not immediately checked. It will be checked only after `flyspell-delay' seconds. (defalias 'flyspell-delay-command #[(command) "\301\302\303#\207" [command put flyspell-delayed t] 4 (#$ . 19117) "SDelay Flyspell after Command: "]) #@60 Install the standard set of Flyspell deplacement commands. (defalias 'flyspell-deplacement-commands #[nil "\302\303\"\210\302\303 \"\207" [flyspell-default-deplacement-commands flyspell-deplacement-commands mapcar flyspell-deplacement-command] 3 (#$ . 19500)]) #@251 Set COMMAND that implement cursor movements, for Flyspell. When flyspell `post-command-hook' is invoked because of a deplacement command as been used the current word is checked only if the previous command was not the very same deplacement command. (defalias 'flyspell-deplacement-command #[(command) "\301\302\303#\207" [command put flyspell-deplacement t] 4 (#$ . 19769) "SDeplacement Flyspell after Command: "]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\310\"\210\311\301!\210\311\305!\210\311\306!\210\311\307!\210\312B\302\312!\204[\303\312\304\"\210\313B\302\313!\204j\303\313\304\"\210\314B\302\314!\204y\303\314\304\"\210\315B\302\315!\204\210\303\315\304\"\210\316B\302\316!\204\227\303\316\304\"\210\304\207" [current-load-list flyspell-word-cache-start default-boundp set-default nil flyspell-word-cache-end flyspell-word-cache-word flyspell-word-cache-result _ make-variable-buffer-local flyspell-pre-buffer flyspell-pre-point flyspell-pre-column flyspell-pre-pre-buffer flyspell-pre-pre-point] 3) #@51 The last interactive command checked by Flyspell. (defvar flyspell-previous-command nil (#$ . 20923)) #@69 Save the current buffer and point for Flyspell's post-command hook. (defalias 'flyspell-pre-command-hook #[nil "p`i\211\207" [flyspell-pre-buffer flyspell-pre-point flyspell-pre-column] 2 (#$ . 21031) nil]) #@25 Turn Flyspell mode off. (defalias 'flyspell-mode-off #[nil "\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 (#$ . 21247)]) #@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 #[nil "\247\203\306 !\203\307 !\204\310\207\n=\203! =\203!\310\207`SU\2030fz\311=\204=`U\204=`TU\203?\310\207\f9\203r \204r\f\312N\204[\f\313N\203r\f=\203ri\314U\204piU\204pfz\311=\203r\310\207p =\204z\315\207\247\203\206\247\204\210\315\207W\206\223V\207" [flyspell-pre-point flyspell-pre-buffer flyspell-pre-pre-point flyspell-pre-pre-buffer this-command executing-kbd-macro bufferp buffer-live-p nil 119 flyspell-delayed flyspell-deplacement 0 t flyspell-previous-command flyspell-pre-column flyspell-word-cache-start flyspell-word-cache-end] 2 (#$ . 21754)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\207" [current-load-list flyspell-changes default-boundp set-default nil make-variable-buffer-local] 3) #@69 Save the current buffer and point for Flyspell's post-command hook. (defalias 'flyspell-after-change-function #[(start stop len) " B\nB\211\207" [start stop flyspell-changes] 2 (#$ . 22717)]) #@124 Return t when the changed word has to be checked. The answer depends of several criteria. Mostly we check word delimiters. (defalias 'flyspell-check-changed-word-p #[(start stop) "f\304>\203 V\203\305\207\n\247\204\305\207\nY\203$\n X\203$\306\207`\211Y\2066 X\2066 TU)\203<\306\207\305\207" [start stop flyspell-pre-point pos (10 32) t nil] 3 (#$ . 22918)]) #@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 #[nil "dSeX\203 \306\207i\307V\203.i=\204.\212\310u\210\311\312 !\205( \206(\311\313!?)\203.\314\207\n9\203O\n\315N\203> \n=?\207\n\316N\203M\f?\205N\317 !\207\314\207\314\207" [flyspell-pre-column flyspell-consider-dash-as-word-delimiter-flag this-command flyspell-previous-command unread-command-events flyspell-delay nil 0 -1 looking-at flyspell-get-not-casechars "-" t flyspell-deplacement flyspell-delayed sit-for] 2 (#$ . 23302)]) (defalias 'flyspell-debug-signal-no-check #[(msg obj) "\303r\304\305!q\210\306 \210\307c\210\310\311 \n#c)\207" [debug-on-error msg obj t get-buffer-create "*flyspell-debug*" erase-buffer "NO-CHECK:\n" format " %S : %S\n"] 4]) (defalias 'flyspell-debug-signal-pre-word-checked #[nil "\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 #[nil "\306p`r\307\310!q\210\311c\210\312\313 \"c\210\312\314 9\205 \315N\"c\210\312\316 \"c\210\312\317r\nq\210`eV\203>\212\320u\210`f)\202?\321)r\nq\210`eV\205b\212\320u\210\322\323 !\205a\f\204`\322\324!?\205a\325))#c\210\312\326 9\203s \315N\204w\327\202\247r\nq\210`eV\205\225\212\320u\210\322\323 !\205\224\f\206\224\322\324!?))\203\235\330\202\247 \250\204\246\331\202\247\332\"c\210db+\207" [debug-on-error point oldbuf this-command flyspell-consider-dash-as-word-delimiter-flag flyspell-delay t 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" -1 32 looking-at flyspell-get-not-casechars "\\-" 2 " because : %S\n" not-delayed separator no-delay sit-for] 6]) (defalias 'flyspell-debug-signal-changed-checked #[nil "\302`r\303\304!q\210\305c\210\306\307 \"c\210db*\207" [debug-on-error point t get-buffer-create "*flyspell-debug*" "CHANGED WORD:\n" format " point : %S\n"] 3]) #@70 The `post-command-hook' used by flyspell to check a word in-the-fly. (defalias 'flyspell-post-command-hook #[nil "\306\307 \203r q\210\212\fb\210\310 \210*\311 \203%\310 \210p`\202;\306\2119\203;\312N\203;\313\314\315 \204m:\203m@@@A\316\"\203d\212b\210\310 \210)A*\202;\n\211*\207" [this-command deactivate-mark command flyspell-pre-buffer flyspell-pre-point flyspell-pre-pre-buffer nil flyspell-check-pre-word-p flyspell-word flyspell-check-word-p flyspell-delayed -1 _ input-pending-p flyspell-check-changed-word-p flyspell-pre-pre-point flyspell-word-cache-end flyspell-word-cache-result flyspell-changes stop start flyspell-previous-command] 4 (#$ . 25640) nil]) (defalias 'flyspell-notify-misspell #[(word poss) ";\203 \202 \203\305AA@\306\"\202AA@ \205%\307\310\f\n#)\207" [poss flyspell-sort-corrections replacements flyspell-issue-message-flag word sort string< message "misspelling `%s' %S"] 4]) (defalias 'flyspell-word-search-backward #[(word bound) "\212\306\307\306\n\2041\310 \f\307#\211\2031\311\306!\211:\203* @ \230\203*\202-b\210)\202\n,\207" [p inhibit-point-motion-hooks r word bound lw nil t search-backward flyspell-get-word] 5]) (defalias 'flyspell-word-search-forward #[(word bound) "\212\306\307\306\n\2042\310 \f\307#\211\2032\311\306!\211:\203* @ \230\203*\202.Tb\210)\202\n,\207" [p inhibit-point-motion-hooks r word bound lw nil t search-forward flyspell-get-word] 5]) #@21 Spell check a word. (defalias 'flyspell-word #[(&optional following) "\212\306 \210`\307 !\310\211\310\211\"\310#\n\310=\204)\311$!\203-$ \204-\312\202\336\nA@\nAA@\n@\"%\313=\203O eV\203\211 Sf\314>\204\211&\203\211\212 b\210 \f ZZ\315\310x[Z\211'eY\205p\316\"'\"\211(\205{( U?+\203\211\317 \f\320#\210\310\202\336) =\203\244*\f=\203\244+\"\230\203\244,\202\336%\313=\203\304\321\n!\203\304\322 !\210\f V\203\300\322\fS!\210\312\202\336 )\f*\"+\323\324!\210\323\325\"\326Q!\210\327-\310\"\210\310\330\331\217\210#A\211#\204\361\332##:\203\375\333#@! \312=\203\312,\322 !\210\f V\203\322\fS!\210\312\202\316 ;\2039.\2039\312,\322 !\210\f V\2035\322\fS!\210\312\202\316 \204S\312,\322 !\210\f V\203O\322\fS!\210\312\202\316/\334W\203t\212 b\210\316\"e\")\204\233\212\fb\210\335\"d\")\204\233/\334V\203\266\212 b\210\316\" /Z\")\204\233\212\fb\210\335\"\f/\\\")\203\266\310,.\203\254\336 \f #\210\202\262\337\340\"\"\210\310\202\316\310,.\203\307\317 \f #\210\202\315\341\" \"\210\3100b\2101\203\333\31010).\207" [cursor-location following flyspell-word start end poss flyspell-accept-buffer-local-defs flyspell-get-word nil fboundp t tex (125 92) " \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 (byte-code "\303\304 !\210\n@\305\230\203)\303\207" [inhibit-quit ispell-process ispell-filter nil accept-process-output ""] 2) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2))) (*) ispell-parse-output 0 flyspell-word-search-forward flyspell-highlight-duplicate-region message "duplicate `%s'" flyspell-notify-misspell word ispell-filter flyspell-generic-check-word-predicate ispell-parser flyspell-mark-duplications-flag bound p flyspell-word-cache-start flyspell-word-cache-end flyspell-word-cache-word flyspell-word-cache-result ispell-process flyspell-highlight-flag flyspell-duplicate-distance res ispell-quit] 5 (#$ . 27136) (list ispell-following-word)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list flyspell-tex-math-initialized default-boundp set-default nil] 3) (defalias 'flyspell-math-tex-command-p #[nil "\302\303!\205#\203\f\304\207 \305=\203\303 \207 \306=\203\304\207\305\304\307\310\217\207" [flyspell-check-tex-math-command flyspell-tex-math-initialized fboundp texmathp nil t error (texmathp) ((error (byte-code "\301\302\207" [flyspell-tex-math-initialized error nil] 1)))] 3]) #@36 Return t if WORD is a TeX command. (defalias 'flyspell-tex-command-p #[(word) "\212A@\303\304`\305Z\306#\205&\307\225 U\206&\307\225b\205&\310\n!\205&\307\225 Y*\206,\311 \207" [word b flyspell-tex-command-regexp re-search-backward "\\\\" 100 t 0 looking-at flyspell-math-tex-command-p] 4 (#$ . 29762)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306\301!\210\306\305!\207" [current-load-list flyspell-casechars-cache default-boundp set-default nil flyspell-ispell-casechars-cache make-variable-buffer-local] 3) #@186 This function builds a string that is the regexp of word chars. In order to avoid one useless string construction, this function changes the last char of the `ispell-casechars' string. (defalias 'flyspell-get-casechars #[nil "\304  \305=\203\306GSO\307P\211\202\211)\207" [ispell-casechars ispell-parser flyspell-ispell-casechars-cache flyspell-casechars-cache ispell-get-casechars tex 0 "]"] 4 (#$ . 30338)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306\301!\210\306\305!\207" [current-load-list flyspell-not-casechars-cache default-boundp set-default nil flyspell-ispell-not-casechars-cache make-variable-buffer-local] 3) #@69 This function builds a string that is the regexp of non-word chars. (defalias 'flyspell-get-not-casechars #[nil "\304  \305=\203\306GSO\307P\211\202\211)\207" [ispell-not-casechars ispell-parser flyspell-ispell-not-casechars-cache flyspell-not-casechars-cache ispell-get-not-casechars tex 0 "]"] 4 (#$ . 31034)]) #@424 Return the word for spell-checking according to Ispell syntax. If optional argument FOLLOWING is non-nil or if `flyspell-following-word' is non-nil when called interactively, then the following word (rather than preceding) is checked when the cursor is not over a word. Optional second argument contains otherchars that can be included in word many times. Word syntax described by `flyspell-dictionary-alist' (which see). (defalias 'flyspell-get-word #[(following &optional extra-otherchars) "\306 \307 \310 \311 \312\n\313\230?\205\n\314P\f\205\f\314P\315 \204)\f\203-\316\202.\314\260\317\211\317\211\317\320!\204Z\203T\321\317\322#\210\202Z\323\317\322#\210\323 \317\324#\210\n\313\230\204l\320\n!\204v\f\203\304\320\f!\203\304o\204\304\203\203 \203\304`=\204\304\f\203\246\320\f!\203\246\325u\210\320!\203`\323 \317\326#\210\202`\322`\325u\210\320!\203\276\323 \317\326#\210\202`\327u\210\202`\321 \317\322#\205\341\330\224`\331\"\211E.\n\207" [flyspell-casechars flyspell-not-casechars ispell-otherchars ispell-many-otherchars-p extra-otherchars word-regexp 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 did-it-once prevpt end word following] 8 (#$ . 31368)]) #@36 Flyspell text between BEG and END. (defalias 'flyspell-small-region #[(beg end) "\212 V\203 \n)b\210\306` W\203Z\f\2037 \307U\2037\310\311\312`Z! Z\245\307_\"\210\306\202: T\313 \210\314\306!\210`\315v\210` W\203V` TV\203V\316u\210)\202)\316u\210\f\203f\310\317!\210\313 )\207" [beg end old count flyspell-issue-message-flag cur 0 100 message "Spell Checking...%d%%" float flyspell-word sit-for 1 -1 "Spell Checking completed."] 5 (#$ . 32796)]) #@39 The external Flyspell Ispell process. (defvar flyspell-external-ispell-process nil (#$ . 33271)) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306e\"\210\307B\302\307!\204<\303\307d\"\210\304\207" [current-load-list flyspell-external-ispell-buffer default-boundp set-default nil flyspell-large-region-buffer flyspell-large-region-beg flyspell-large-region-end] 3) #@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 #[nil "\306\307 \306r q\210eb\210\310\311\306\312#\203\272\313\314!` !\2032\315\316\317`!d\245\320_ #\210r\"q\210\nb\210\312##\203\266\321 $\312#\203\242\212\322u\210\323\306!)\211%@\211&G' G('(U\204\226 \324& \"\235\204\226'(W\204\226)\204\236\212%A@Sb\210\325\326!\205\222\312)\203\236\306#\327 \210`,\202=\330\304\331 \332\333!R\"\210\306\211#\204B,\202!\203\303\315\334!\210)\f\306 \211*\203\342*@ \315\335 \"\210*A\211*\204\316*\336 !\210\306\211,\207" [flyspell-large-region-beg case-fold-search buffer-scan-pos ispell-otherchars words-not-found flyspell-external-ispell-buffer nil ispell-get-otherchars re-search-forward "\\([^\n]+\\)\n" t match-string 1 message "Spell Checking...%d%% [%s]" float 100 search-forward -1 flyspell-get-word split-string looking-at "[\\]" flyspell-word add-to-list " -> " " - " int-to-string "Spell Checking completed." "%s: word not found" kill-buffer wordpos word flyspell-issue-message-flag flyspell-large-region-buffer keep flyspell-large-region-end found-list found found-length misspell-length ispell-really-aspell #1=#:--cl-dolist-temp--] 8 (#$ . 33718)]) (defalias 'flyspell-process-localwords #[(misspellings-buffer) "\306\211\307 \212eb\210\310 \306\311#\203F\212\306\210`)\306\312\313 \311#\203B\314\315\224\315\225\"\315\fGW\203\316\f\"\317\232\203\f\nB\202*\202 )rq\210\212\n\306\211\203\202@eb\210\320\321Q\312\306\311#\203x\317\224\317\225|\210\202f)A\211\204W.\306\207" [ispell-casechars case-fold-search localwords ispell-words-keyword string end nil ispell-get-casechars search-forward t re-search-forward " *\\([^ ]+\\)" buffer-substring-no-properties 1 string-match 0 "^" "\n" misspellings-buffer word #1=#:--cl-dolist-temp-- regexp] 5]) #@69 Check for adjacent duplicated words (doublons) in the given region. (defalias 'flyspell-check-region-doublons #[(beg end) "\212b\210\302 \210\303v\210` W\203!\304\305 \306#\203!\302 \210\303v\210\202\n\302 )\207" [beg end flyspell-word -1 re-search-forward "\\<\\(\\w+\\)\\>[ \n \f]+\\1\\>" move] 4 (#$ . 35842)]) (defalias 'flyspell-large-region #[(beg end) "p\306\307!\211\f\310 \210 q\210\311 \210 \203\"\312\313!\210q\210\314 \210\315\316\f!\317 \317\"\203;\320\202<\321\317#$\203H$%\322 #%\203[\323\324%D#\"#&\203l\323#\325\326&!D\"#\323#'\"\211#)& \211(\327=\203\232\330 !\210rq\210\331\f\"\210\332\f\"\210)\333 \202\235\334\335!+\207" [curbuf buffer flyspell-external-ispell-buffer flyspell-large-region-buffer beg flyspell-large-region-beg get-buffer-create "*flyspell-region*" flyspell-accept-buffer-local-defs erase-buffer message "Checking region..." ispell-check-version apply ispell-call-process-region nil "list" "-l" ispell-get-ispell-args append "-d" "-p" expand-file-name 0 flyspell-process-localwords flyspell-delete-region-overlays flyspell-check-region-doublons flyspell-external-point-words error "Can't check region..." end flyspell-large-region-end flyspell-issue-message-flag ispell-program-name ispell-really-aspell args ispell-local-dictionary ispell-dictionary ispell-personal-dictionary ispell-extra-args c] 15]) #@36 Flyspell text between BEG and END. (defalias 'flyspell-region #[(beg end) " U?\205-\212 V\203 \n) \203( Z V\203(\303 \"\202,\304 \")\207" [beg end old flyspell-large-region flyspell-small-region] 3 (#$ . 37239) "r"]) #@24 Flyspell whole buffer. (defalias 'flyspell-buffer #[nil "\300ed\"\207" [flyspell-region] 3 (#$ . 37477) nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\304\207" [current-load-list flyspell-old-buffer-error default-boundp set-default nil flyspell-old-pos-error] 3) #@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 #[nil "`dp\n=\203% =\203% U\203 \306\307!\210eb\210\202#\310v\210` W\203Y\311 !\312\f\204M :\203M\313 @!\203G\314\211\2022 A\2021\f*\204Y T\211\202& p b\210 U\205i\306\315!*\207" [max pos flyspell-old-buffer-error flyspell-old-pos-error r ovs message "Restarting from beginning of buffer" 1 overlays-at nil flyspell-overlay-p t "No more miss-spelled word!"] 3 (#$ . 37799) nil]) #@68 A predicate that return true iff O is an overlay used by flyspell. (defalias 'flyspell-overlay-p #[(o) "\301!\205\n\302\303\"\207" [o overlayp overlay-get flyspell-overlay] 3 (#$ . 38361)]) #@53 Delete overlays used by flyspell in a given region. (defalias 'flyspell-delete-region-overlays #[(beg end) "\302 \303\304$\207" [beg end remove-overlays flyspell-overlay t] 5 (#$ . 38560)]) #@43 Delete all the overlays used by flyspell. (defalias 'flyspell-delete-all-overlays #[nil "\300ed\301\302$\207" [remove-overlays flyspell-overlay t] 5 (#$ . 38757)]) #@54 Remove the flyspell overlay that are located at POS. (defalias 'flyspell-unhighlight-at #[(pos) "\203\"\304 !\211:\205 \305\n@!\203\306\n@!\210\nA\211\202 )\207\305 !\205+\306 !\207" [flyspell-persistent-highlight pos overlays flyspell-overlay overlays-at flyspell-overlay-p delete-overlay] 3 (#$ . 38927)]) #@252 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. (defalias 'flyspell-properties-at-p #[(pos) "\303!\304 \203)\n:\203)\n@\305=\203#\nA:\203#\nAA\202\306\211\204\n\n*:\207" [pos keep prop text-properties-at t local-map nil] 3 (#$ . 39251)]) #@195 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. (defalias 'make-flyspell-overlay #[(beg end face mouse-face) "\306 \307\310\307%\311\n\303 #\210\311\n\304\f#\210\311\n\312\310#\210\311\n\313\310#\210\311\n\314\315#\210\311\n\316 #\210 \317=\203L;\203?\311\n\320#\210;\203L\311\n\321#\210\n)\207" [beg end overlay face mouse-face flyspell-mouse-map make-overlay nil t overlay-put flyspell-overlay evaporate help-echo "mouse-2: correct word at point" keymap flyspell-incorrect before-string after-string flyspell-before-incorrect-word-string flyspell-after-incorrect-word-string] 6 (#$ . 39711)]) #@284 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. (defalias 'flyspell-highlight-incorrect-region #[(beg end poss) "\306\307\310 \n $?\205T\f\204\311 !?\205T T\nW\203=\312 T\n\"\211:\203<\313 @!\2035\314 @!\210 A\211\202%)\315 !\210\316 \n \317=\203N\320\202O\321\322$\211)\207" [inhibit-read-only beg end poss flyspell-highlight-properties os 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 flyspell-overlay] 6 (#$ . 40472)]) #@174 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'. (defalias 'flyspell-highlight-duplicate-region #[(beg end poss) "\306\307\310 \n $?\205#\f\204\311 !?\205#\312 !\210\313 \n\314\315$\211)\207" [inhibit-read-only beg end poss 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] 5 (#$ . 41337)]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\304\"\210\306B\302\306!\204-\303\306\304\"\210\307B\302\307!\204<\303\307\304\"\210\310\301!\210\310\305!\210\310\306!\210\310\307!\207" [current-load-list flyspell-auto-correct-pos default-boundp set-default nil flyspell-auto-correct-region flyspell-auto-correct-ring flyspell-auto-correct-word make-variable-buffer-local] 3) #@211 Correct the closer misspelled word. This function scans a mis-spelled word before the cursor. If it finds one it proposes replacement for that word. With prefix arg, count that many misspelled words backwards. (defalias 'flyspell-check-previous-highlighted-word #[(&optional arg) "``\247\203 \305W\203\305\202\306\211\307\310\215\203)\212 b\210\311 )\202,\312\313!-\207" [arg ovs ov pos pos1 1 nil exit (byte-code "\305!\211\205> U?\205>eV\203\306S!\n:\203\n@\nA\307 !\203\fS\211\310U\203\311\312\313\"\210\202\207" [pos pos1 ovs ov arg previous-overlay-change overlays-at flyspell-overlay-p 0 throw exit t] 3) ispell-word error "No word to correct before point"] 5 (#$ . 42338) nil]) (defalias 'flyspell-display-next-corrections #[(corrections) "\306\307 G\310W\203&\n@\f\232\203 GT B \311\n@Q\nA\202 :\203A @\312 \211\fG\\\313\314 %\210) A\211\202'\315\316!\203N\316\317 \"\202R\320\321 \"+\207" [corrections pos l string flyspell-auto-correct-word num "Corrections:" nil 80 " " put-text-property face flyspell-incorrect fboundp display-message no-log message "%s"] 7]) (defalias 'flyspell-abbrev-table #[nil "\203 \207\n\206 \207" [flyspell-use-global-abbrev-table-p global-abbrev-table local-abbrev-table] 1]) (defalias 'flyspell-define-abbrev #[(name expansion) "\303 \211\205 \304 \227\n#)\207" [table name expansion flyspell-abbrev-table define-abbrev] 5]) #@102 Correct the current word. This command proposes various successive corrections for the current word. (defalias 'flyspell-auto-correct-word #[nil "`d\306 \210\n =\203r :\203r @ A\307\f!\210\f\211 \\|\210A\211@\211 G \241\210\fb\210!\203V\310\311 \"\"\203O\312\311 \" #\210\202V\313\" \"\210# !\210\314 \210\315!\210*\316 `#\210`\211*\202\203\317\320!\211 :\205\202 A@ AA@ @\320\211$% & \"\321\322!\210\321\323 \324Q!\210\325'!\210$@\326\230\203\243$A\211$\204\274\327$$:\203\311\330$@!%%\331=\204|%;\204|%\204\342\332\333!\210\202|(\203\362\334%AA@\335\"\202\367%AA@)\320):\203{)@\211*\211+%@\232\204z\f+GB)\211,A:\203*,A\211,\202,%@)B\241\210))\307\f!\210\f&|\210#+!\210!\203i\310\311  \"\203b\312\311  +#\210\202i\313 +\"\210\314 \210\315+B!\210\316 `#\210*)`\336\331!-)*\207" [old-max pos flyspell-auto-correct-pos flyspell-auto-correct-region start len 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 nil ispell-send-string "%\n" "^" "\n" accept-process-output "" (*) ispell-parse-output t error "Ispell: error in Ispell process" sort string< ispell-pdict-save flyspell-auto-correct-ring word flyspell-abbrev-p flyspell-auto-correct-word flyspell-insert-function ispell-filter poss end ispell-process flyspell-sort-corrections replacements replace new-word l] 6 (#$ . 43773) nil]) #@59 Holds the start of the first incorrect word before point. (defvar flyspell-auto-correct-previous-pos nil (#$ . 45366)) #@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 #[nil "\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 (#$ . 45492) nil]) #@117 Auto correct the first mispelled word that occurs before point. But don't look beyond what's visible on the screen. (defalias 'flyspell-auto-correct-previous-word #[(position) "\306\211\212\307\310!\210`\307\311!\210`)\212\214 }\210\312`!\210\313\314\315\316\211$\210\n\204W\306\317e \"\320\f\203N\321\f!\203E\322\323\f!\324\"\325=\204N \242 \243\2020\f\203V\323\f!*\n\205r\212\nb\210\316\n\247\203j\nb\210\326 \210)`\211),\207" [bot top flyspell-auto-correct-previous-pos position new-overlay overlay-list nil move-to-window-line 0 -1 overlay-recenter add-hook pre-command-hook flyspell-auto-correct-previous-hook t overlays-in dummy-value flyspell-overlay-p get-char-property overlay-start face flyspell-incorrect flyspell-auto-correct-word ispell-following-word] 5 (#$ . 45902) "d"]) #@114 Pop up a menu of possible corrections for a misspelled word. The word checked is the word at the mouse position. (defalias 'flyspell-correct-word #[(event) "`\302 !\210\303 \")\207" [save event mouse-set-point flyspell-correct-word-before-point] 3 (#$ . 46718) "e"]) #@260 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. (defalias 'flyspell-correct-word-before-point #[(&optional event opoint) "\306 \204 \307\310!\210\311 \210`\312\313!:\205|A@AA@@\313\211\314\315!\210\314\316\317Q!\210\320!\210\n@\321\230\2032\nA\211\204G\322\n:\203Q\323\n@! \324=\204x ;\204x \204g\307\325!\210\202x\326\327 #  \f&\210\330\324!-*\207" [word cursor-location ispell-filter poss end start mouse-position error "Pop-up menus do not work on this terminal" flyspell-accept-buffer-local-defs flyspell-get-word nil ispell-send-string "%\n" "^" "\n" accept-process-output "" (*) ispell-parse-output t "Ispell: error in Ispell process" flyspell-do-correct flyspell-emacs-popup ispell-pdict-save ispell-process event opoint] 9 (#$ . 46994) nil]) #@26 The popup menu callback. (defalias 'flyspell-do-correct #[(replace poss word cursor-location start end save) "\306=\203 b\210\307\207\301=\203' b\210\310\311\n\312Q!\210\310\313!\210\314 !\210\315\211\207\316=\2043\317=\203R\310\320\n\312Q!\210\314 !\210\f\204E\fC b\210\316=\205\243\321\n!\207\203\237\314 !\210d:\204d\202f@\nG ZZ \\@\232\204\227 |\210b\210!\210\203\227\322\n\"\210\323 #+\207 b\210\307\207" [replace save word cursor-location ispell-pdict-modified-p end ignore nil ispell-send-string "*" "\n" "#\n" flyspell-unhighlight-at (t) buffer session "@" ispell-add-per-file-word-list flyspell-define-abbrev flyspell-ajust-cursor-point start new-word old-max poss flyspell-insert-function flyspell-abbrev-p] 5 (#$ . 47995)]) (defalias 'flyspell-ajust-cursor-point #[(save cursor-location old-max) " Y\203$d\nZ\\\211eW\203e\202! dV\203 d\202! b)\207b\207" [save cursor-location old-max new-pos] 4]) #@23 The Emacs popup menu. (defalias 'flyspell-emacs-popup #[(event poss word) "\204+\306 \211A@\203 \202\307 @\310 \311\245\311#\210\306 \211A@ AATD @D*\n\2039\312 AA@\313\"\202= AA@\211:\205G\314\315\f\" AAA@\316:\203j\203j\317@P\320D\321\322E\202k\323 :\203|\324 \325B\"\202~)\326B\327\330\331\206\224 #D\"@.\207" [event mouse-pos flyspell-sort-corrections poss corrects cor-menu mouse-position set-mouse-position frame-width 2 sort string< mapcar #[(correct) "\211D\207" [correct] 2] 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]" affix show-affix-info base-menu menu word ispell-local-dictionary ispell-dictionary] 7 (#$ . 48968)]) #@24 The XEmacs popup menu. (defalias 'flyspell-xemacs-popup #[(poss word cursor-location start end save) "\203\306 AA@\307\"\202 AA@\211:\205\310\311\n\" AAA@\312\f:\203I \203I\313\314\f@P\315\316\317 D \257\320#\202^\313\321\315\322\317 D \257\320#\313\323\315\324\317 D \257\320#\313\325\315\326\317 D \257\320#!\" :\203\241\327 \330 \"!F\"\202\250 \"!E+#\331\332\333$\206\267%##B!-\207" [flyspell-sort-corrections poss corrects cor-menu affix show-affix-info sort string< mapcar #[(correct) "\306\307\310 D\n \f \n\257\311#\207" [correct poss word cursor-location start end vector flyspell-do-correct quote t save] 10] nil vector "Save affix: " flyspell-do-correct 'save quote t "Save word" 'save "Accept (session)" 'session "Accept (buffer)" 'buffer append "-" popup-menu format "%s [%s]" word cursor-location start end save buffer session menu ispell-local-dictionary ispell-dictionary] 13 (#$ . 49835)]) #@390 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'. (defalias 'flyspell-maybe-correct-transposition #[(beg end poss) ":\205\301\302\215\207" [poss done (byte-code " {\306 Z\307\fT W\203Y \fH \f \fTHI\210 \fT\nI\210 \3108\235\203@\212\f\\\311\\b\210\312\311!\210)\313\314\315\"\210 \fH \f \fTHI\210 \fT\nI\210\fT\211\202 ,\307\207" [beg end tmp len i str 0 nil 2 1 transpose-chars throw done t poss] 5)] 2 (#$ . 50825)]) #@389 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'. (defalias 'flyspell-maybe-correct-doubling #[(beg end poss) ":\205\301\302\215\207" [poss done (byte-code " {\306 Z T\nW\203D\f H\f THU\203=\f\306 TO\f \307\\\310OP\307 8\235\203= \\b\210\311\312!\210\313\314\315\"\210 T\211\202 +\310\207" [beg end len i str poss 0 2 nil delete-char 1 throw done t] 5)] 2 (#$ . 51607)]) (defalias 'flyspell-already-abbrevp #[(table word) "\303 \"\211\205 \n9)\207" [word table sym abbrev-symbol] 4]) (defalias 'flyspell-change-abbrev #[(table old new) "\303 \"\nL\207" [old table new abbrev-symbol] 3]) (provide 'flyspell)