;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:52:30 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/textmodes/flyspell.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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\313& \207" [require ispell custom-declare-group flyspell nil "Spell checking on the fly." :tag "FlySpell" :prefix "flyspell-" :group processes] 10) #@113 *How Flyspell should indicate misspelled words. Non-nil means use highlight, nil means use minibuffer messages. (custom-declare-variable 'flyspell-highlight-flag 't '(#$ . -839) :group 'flyspell :type 'boolean) #@62 *Non-nil means Flyspell reports a repeated word as an error. (custom-declare-variable 'flyspell-mark-duplications-flag 't '(#$ . -1056) :group 'flyspell :type 'boolean) #@74 *Non-nil means, sort the corrections alphabetically before popping them. (custom-declare-variable 'flyspell-sort-corrections 'nil '(#$ . -1231) :group 'flyspell :version "21.1" :type 'boolean) #@448 *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-face') 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 '(#$ . -1431) :group 'flyspell :version "21.1" :type 'number) #@76 *The number of seconds to wait before checking, after a "delayed" command. (custom-declare-variable 'flyspell-delay '3 '(#$ . -2004) :group 'flyspell :type 'number) #@158 *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 '(#$ . -2176) :group 'flyspell :type 'boolean) #@83 *Non-nil means highlight incorrect words even if a property exists for this word. (custom-declare-variable 'flyspell-highlight-properties 't '(#$ . -2445) :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) '(#$ . 2639) :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 '(#$ . 2976) :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) '(#$ . 3266) :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 '(#$ . 3552) :group 'flyspell :version "21.1" :type '(repeat (symbol))) #@77 *Non-nil means that Flyspell should display a welcome message when started. (custom-declare-variable 'flyspell-issue-welcome-flag 't '(#$ . -3863) :group 'flyspell :type 'boolean) #@361 *List of functions to be called when incorrect words are encountered. Each function is given three arguments: 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 '(#$ . -4050) :group 'flyspell :version "21.1" :type 'hook) #@344 A string that is the name of the default dictionary. This is passed to the `ispell-change-dictionary' when flyspell is started. If the variables `ispell-local-dictionary' or `ispell-dictionary' are non nil when flyspell is started, the value of that variables is used instead of `flyspell-default-dictionary' to select the default dictionary. (custom-declare-variable 'flyspell-default-dictionary '"american" '(#$ . 4532) :group 'flyspell :version "21.1" :type 'string) #@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\\)[ ]*\\(\\[[^]]*\\]\\)?{[^{}]*\\)" '(#$ . 5008) :group 'flyspell :version "21.1" :type 'string) #@236 *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 '(#$ . -5331) :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") '(#$ . 5682) :group 'flyspell :version "21.1" :type '(repeat (string))) #@49 *If true, add correction to abbreviation table. (custom-declare-variable 'flyspell-abbrev-p 't '(#$ . -5941) :group 'flyspell :version "21.1" :type 'boolean) #@61 *If true, prefer global abbrev table to local abbrev table. (custom-declare-variable 'flyspell-use-global-abbrev-table-p 'nil '(#$ . -6105) :group 'flyspell :version "21.1" :type 'boolean) #@116 *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" '(#$ . -6301) :group 'flyspell :type 'string) #@268 *The threshold that determines if a region is small. The `flyspell-region' function is invoked if the region is small, the word are checked one after the other using regular flyspell check means. If the region is large, a new Ispell process is spawned to get speed. (custom-declare-variable 'flyspell-large-region '1000 '(#$ . -6529) :group 'flyspell :version "21.1" :type 'number) #@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-p nil (#$ . 6919)) (byte-code "\300\301!\210\302\303\304\305#\210\302\306\304\305#\207" [make-variable-buffer-local flyspell-generic-check-word-p put mail-mode flyspell-mode-predicate mail-mode-flyspell-verify message-mode] 4) #@73 This function is used for `flyspell-generic-check-word-p' in Mail mode. (defalias 'mail-mode-flyspell-verify #[nil "\212\304\305\306#)\212\307 \305\306#)\211\203&\212\310 \210\311\312!)\2057`\313\225V\2027\n\203.\305\2027\212\310 \210\311\314!)?*\207" [mail-header-separator message-signature-separator in-signature in-headers re-search-forward nil t re-search-backward beginning-of-line looking-at "^Subject:" 0 "[>}|]\\To:"] 6 (#$ . 7421)]) (put 'texinfo-mode 'flyspell-mode-predicate 'texinfo-mode-flyspell-verify) #@76 This function is used for `flyspell-generic-check-word-p' in Texinfo mode. (defalias 'texinfo-mode-flyspell-verify #[nil "\212\300v\210\301\302!)?\207" [-1 looking-at "@"] 2 (#$ . 7953)]) (put 'tex-mode 'flyspell-mode-predicate 'tex-mode-flyspell-verify) #@74 This function is used for `flyspell-generic-check-word-p' in LaTeX mode. (defalias 'tex-mode-flyspell-verify #[nil "\212\302\303e\304#)?\205-\212\305 \306\210\305 \307 \210\310\311\304#\205+ \312\224Y\205+ \312\225X+?\207" [e this re-search-backward "^[ ]*%%%[ ]+Local" t point-marker nil beginning-of-line re-search-forward "\\\\\\(cite\\|label\\|ref\\){[^}]*}" 0] 4 (#$ . 8214)]) (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 This function is used for `flyspell-generic-check-word-p' 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 (#$ . 8746)]) #@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) (#$ . 9228)) #@64 Used for `flyspell-generic-check-word-p' in programming modes. (defalias 'flyspell-generic-progmode-verify #[nil "\302`\303\"\211 >)\207" [f flyspell-prog-text-faces get-text-property face] 4 (#$ . 9404)]) #@51 Turn on `flyspell-mode' for comments and strings. (defalias 'flyspell-prog-mode #[nil "\301\302\303!\207" [flyspell-generic-check-word-p flyspell-generic-progmode-verify flyspell-mode 1] 2 (#$ . 9617) nil]) #@28 Overlay compatibility kit. (autoload 'make-overlay "overlay" '(#$ . 9831) t) #@28 Overlay compatibility kit. (autoload 'overlayp "overlay" '(#$ . 9914) t) #@28 Overlay compatibility kit. (autoload 'overlays-in "overlay" '(#$ . 9993) t) #@28 Overlay compatibility kit. (autoload 'delete-overlay "overlay" '(#$ . 10075) t) #@28 Overlay compatibility kit. (autoload 'overlays-at "overlay" '(#$ . 10161) t) #@28 Overlay compatibility kit. (autoload 'overlay-put "overlay" '(#$ . 10244) t) #@28 Overlay compatibility kit. (autoload 'overlay-get "overlay" '(#$ . 10327) t) #@28 Overlay compatibility kit. (autoload 'previous-overlay-change "overlay" '(#$ . 10410) t) #@45 The type of Emacs we are currently running. (defvar flyspell-emacs (byte-code "\301\302\"\203 \303\207\304\207" [emacs-version string-match "XEmacs" xemacs emacs] 3) (#$ . 10505)) (byte-code "\303B\306\303!\204 \307=\206\n\310\231?\304B\306\304!\204!\311\312\304!\210\313B\306\313!\204[\314  \307=\203G\315 \316\317#\210\315 \320\321#\210\202W \203W\315 \322\317#\210\315 \320\321#\210 ) \323B\306\323!\204i\314 \324\304\"\204~\304BB\211\203\205\315\320\321#\210\325B\306\325!\204\235\326\327\n\"\203\232\330\202\233\331\311\207" [current-load-list flyspell-emacs emacs-version flyspell-use-local-map flyspell-mode map boundp xemacs "20" nil make-variable-buffer-local flyspell-mouse-map make-sparse-keymap define-key [(button2)] flyspell-correct-word/mouse-keymap "\211" flyspell-auto-correct-word [(mouse-2)] flyspell-mode-map assoc flyspell-overlay-keymap-property-name string-match "19.*XEmacs" keymap local-map minor-mode-map-alist] 4) #@69 *Non-nil means that the `-' char is considered as a word delimiter. (defvar flyspell-consider-dash-as-word-delimiter-flag nil (#$ . -11497)) (byte-code "\304\305!\210\301B\306\301!\204\307\304\301!\210\302B\306\302!\204 \307\304\302!\210\310\311\312\313\314\315%\210\310\316\317\320\314\315%\210\303B\306\303!\204@\307\307\207" [current-load-list flyspell-dash-dictionary flyspell-dash-local-dictionary flyspell-overlay make-variable-buffer-local flyspell-consider-dash-as-word-delimiter-flag boundp nil custom-declare-face flyspell-incorrect-face ((((class color)) (:foreground "OrangeRed" :bold t :underline t)) (t (:bold t))) "Face used for marking a misspelled word in Flyspell." :group flyspell flyspell-duplicate-face ((((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'."] 6) #@1000 Minor mode performing on-the-fly spelling checking. Ispell is automatically spawned on background for each entered words. 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-correct-word] (or mouse-2): popup correct words. Hooks: flyspell-mode-hook is run 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) "\n\204\n\206\303\n!\304X?\211 =?\205)\203\"\305 \210\202%\306 \210\307\310 !)\207" [flyspell-mode old-flyspell-mode arg prefix-numeric-value 0 flyspell-mode-on flyspell-mode-off set-buffer-modified-p buffer-modified-p] 3 (#$ . 12440) "P"]) (byte-code "\305\306!\203\306\307\310\311\307%\210\202)\312\307 \"\204\313 B\312\307\n\"\204)\307B\nB\304 B\314\304!\2045\311\311\207" [flyspell-mode-map minor-mode-alist minor-mode-map-alist current-load-list flyspell-buffers fboundp add-minor-mode flyspell-mode flyspell-mode-line-string nil assoc (flyspell-mode flyspell-mode-line-string) boundp] 6) #@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 (#$ . 14106)]) (defalias 'flyspell-accept-buffer-local-defs #[nil "\306 \210 =\205\f\n =?\205%   \206 \f\235\203\"\307\211\207\310\211\207" [flyspell-dash-dictionary ispell-dictionary flyspell-dash-local-dictionary ispell-local-dictionary flyspell-dictionaries-that-consider-dash-as-word-delimiter flyspell-consider-dash-as-word-delimiter-flag ispell-accept-buffer-local-defs t nil] 2]) #@71 Turn Flyspell mode on. Do not use this; use `flyspell-mode' instead. (defalias 'flyspell-mode-on #[nil "\306\307 \206\f\n\206\f !\210\310 \210\311 \210\312 \210\313\314!\210\315\314\316\317\211$\210\313\320!\210\315\320\321\317\211$\210\322\304!\210\323\fB \324N\211'\203B'()\322\325!\326!)\327)\330 \"\210))L\210*\203|t\203|\331\332\333\334#+\335+\203x\336\337\340+!\"\202y\341!\210)\322\342!\326!),\343=\203\225\344\330 C!\210\202\234\327)\330 \"\210))L\210\345\346!\207" [ispell-highlight-face ispell-local-dictionary ispell-dictionary flyspell-default-dictionary after-change-functions major-mode flyspell-incorrect-face ispell-change-dictionary flyspell-accept-buffer-local-defs flyspell-delay-commands flyspell-deplacement-commands make-local-hook post-command-hook add-hook flyspell-post-command-hook t pre-command-hook flyspell-pre-command-hook make-local-variable flyspell-after-change-function flyspell-mode-predicate flyspell-mouse-map copy-keymap set-keymap-parent current-local-map where-is-internal flyspell-auto-correct-word nil non-ascii message format "Welcome to flyspell. Use %s or Mouse-2 to correct words." key-description "Welcome to flyspell. Use Mouse-2 to correct words." flyspell-local-mouse-map xemacs set-keymap-parents run-hooks flyspell-mode-hook mode-predicate flyspell-generic-check-word-p map flyspell-issue-welcome-flag binding flyspell-emacs] 6 (#$ . 14674)]) #@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 (#$ . 16105)]) #@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 (#$ . 16350) "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 (#$ . 16733)]) #@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 (#$ . 17002) "SDeplacement Flyspell after Command: "]) (byte-code "\301B\306\301!\204\f\307\302B\306\302!\204\307\303B\306\303!\204$\307\310\301!\210\310\302!\210\310\303!\210\304B\306\304!\204<\307\305B\306\305!\204H\307\311B\306\311!\204U\307 \312B\306\312!\204b\307\n\313B\306\313!\204o\307 \307\207" [current-load-list flyspell-word-cache-start flyspell-word-cache-end flyspell-word-cache-word flyspell-pre-buffer flyspell-pre-point boundp nil make-variable-buffer-local flyspell-pre-column flyspell-pre-pre-buffer flyspell-pre-pre-point] 2) #@51 The last interactive command checked by Flyspell. (defvar flyspell-previous-command nil (#$ . 17949)) #@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 (#$ . 18057) nil]) #@25 Turn Flyspell mode off. (defalias 'flyspell-mode-off #[nil "\304\305\306\307#\210\304\310\311\307#\210\312\313\"\314 \210\315\315\315\211\207" [after-change-functions 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 delq flyspell-after-change-function flyspell-delete-all-overlays nil] 4 (#$ . 18273)]) #@150 Return non-nil if we should to 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\203m\f\312N\204V\f\313N\203m \f=\203mi\314U\204kiU\204kfz\311=\203m\310\207p =\204u\315\207\247\203\201\247\204\203\315\207W\206\216V\207" [flyspell-pre-point flyspell-pre-buffer flyspell-pre-pre-point flyspell-pre-pre-buffer this-command flyspell-previous-command bufferp buffer-live-p nil 119 flyspell-delayed flyspell-deplacement 0 t flyspell-pre-column flyspell-word-cache-start flyspell-word-cache-end] 2 (#$ . 18694)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list flyspell-changes boundp nil] 2) #@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 (#$ . 19568) nil]) #@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 t nil] 3 (#$ . 19773)]) #@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 \305\207i\306V\203.i=\204.\212\307u\210\310\311 !\205( \206(\310\312!?)\203.\313\207\n9\203W\n\314N\203> \n=?\207\n\315N\203U\316\317!\203O\320\f\305\"\207\320\f\306\305#\207\313\207\313\207" [flyspell-pre-column flyspell-consider-dash-as-word-delimiter-flag this-command flyspell-previous-command flyspell-delay nil 0 -1 looking-at flyspell-get-not-casechars "\\-" t flyspell-deplacement flyspell-delayed fboundp about-xemacs sit-for] 4 (#$ . 20152)]) (defalias 'flyspell-debug-signal-no-check #[(msg obj) "\304\212\305\306!\211q\210\307 \210\310c\210\311\312\n #c*\207" [debug-on-error buffer msg obj t get-buffer-create "*flyspell-debug*" erase-buffer "NO-CHECK:\n" format " %S : %S\n"] 5]) (defalias 'flyspell-debug-signal-pre-word-checked #[nil "\306\212\307\310!\211q\210\311c\210\312\313\n\"c\210\312\314 \"c\210\312\315\f\"c\210\312\316 \"c\210db*\207" [debug-on-error buffer 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"] 4]) (defalias 'flyspell-debug-signal-word-checked #[nil "\306\212p\307\310!`\nq\210\311c\210\312\313\f\"c\210\312\314\f9\205!\f\315N\"c\210\312\316 \"c\210\312\317 q\210`eV\203?\212\320u\210`f)\202@\321\nq\210 ) q\210`eV\205h\212\320u\210\322\323 !\205g\204f\322\324!?\205g\325)\nq\210 )#c\210\312\326\f9\203~\f\315N\204\202\327\202\270 q\210`eV\205\240\212\320u\210\322\323 !\205\237\206\237\322\324!?)\nq\210 )\203\255\330\202\270\250\204\267\331\202\270\332\"c\210db,\207" [debug-on-error point buffer oldbuf this-command c 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 flyspell-consider-dash-as-word-delimiter-flag flyspell-delay] 5]) (defalias 'flyspell-debug-signal-changed-checked #[nil "\303\212\304\305!`\211q\210\306c\210\307\310 \"c\210db+\207" [debug-on-error point buffer 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 in-the-fly. (defalias 'flyspell-post-command-hook #[nil "\306 \203\212\nq\210\212 b\210\307 \210*\310 \203\"\307 \210p`\2024\311\3119\2034\312N\2034\313 :\203a@@@A\314\"\203X\212b\210\307 \210)A*\2024 \211)\207" [this-command command flyspell-pre-buffer flyspell-pre-point flyspell-pre-pre-buffer flyspell-pre-pre-point flyspell-check-pre-word-p flyspell-word flyspell-check-word-p nil flyspell-delayed -1 flyspell-check-changed-word-p flyspell-word-cache-end flyspell-changes stop start flyspell-previous-command] 3 (#$ . 22612) nil]) (defalias 'flyspell-notify-misspell #[(start end word poss) ";\203 \202 \203\304AA@\305\"\202AA@\306\307\310 \n#!)\207" [poss flyspell-sort-corrections replacements word sort string< message format "mispelling `%s' %S"] 5]) #@21 Spell check a word. (defalias 'flyspell-word #[(&optional following) "t\203\212\306 \210`\307 !\310\310\310!\310\" \310=\206+\311#!\205+# ??\205\274 A@ AA@ @\"$\312=\203J\ff\313=\204j%\203j\212\fb\210\314\"\f \fZTZ\315#)\203j\316\f \317#\202\274&\f=\203\204' =\203\204(\"\230\203\204\310\202\274$\312=\203\244\320 !\203\244\321\f!\210 \fV\203\240\321 S!\210\315\202\274\f& '\"(\322)\323\"\210\322)\324\"\325Q\"\210\311\326!\203\311\326)!\210\327)!\210*@\330\230\203\311*A\211*:\203\347\331*@!!!\315=\203\321\f!\210 \fV\203\260\321 S!\210\202\260!;\203+\203\321\f!\210 \fV\203\260\321 S!\210\202\260!\2044\321\f!\210 \fV\203\260\321 S!\210\202\260,\332W\203W\212\fb\210\314\"e\315#)\204\200\212 b\210\333\"d\315#)\204\200,\332V\203\230\212\fb\210\314\"\f,Z\315#)\204\200\212 b\210\333\" ,\\\315#)\203\230+\203\215\334\f \"\210\202\260\335\336\337\"\"!\210\202\260+\203\247\316\f !#\210\202\260\340\f \"!$\210\nb\210-\205\274\310\211-.\207" [ispell-following-word following cursor-location flyspell-word start end flyspell-accept-buffer-local-defs flyspell-get-word nil fboundp tex 92 word-search-backward t flyspell-highlight-incorrect-region doublon flyspell-tex-command-p flyspell-unhighlight-at process-send-string "%\n" "^" "\n" process-kill-without-query accept-process-output "" ispell-parse-output 0 word-search-forward flyspell-highlight-duplicate-region message format "duplicate `%s'" flyspell-notify-misspell poss word flyspell-generic-check-word-p ispell-parser flyspell-mark-duplications-flag flyspell-word-cache-start flyspell-word-cache-end flyspell-word-cache-word ispell-process ispell-filter flyspell-highlight-flag flyspell-duplicate-distance ispell-quit] 6 (#$ . 23488) (list current-prefix-arg)]) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list flyspell-tex-math-initialized boundp nil] 2) (defalias 'flyspell-math-tex-command-p #[nil "\203\302\207 \303=\203\304 \207 \305=\203\302\207\303\302\306\307\217\207" [flyspell-check-tex-math-command flyspell-tex-math-initialized nil t texmathp 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 (#$ . 25738)]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\305\301!\210\305\302!\207" [current-load-list flyspell-casechars-cache flyspell-ispell-casechars-cache boundp nil make-variable-buffer-local] 2) #@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 (#$ . 26269)]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\305\301!\210\305\302!\207" [current-load-list flyspell-not-casechars-cache flyspell-ispell-not-casechars-cache boundp nil make-variable-buffer-local] 2) #@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 (#$ . 26920)]) #@412 Return the word for spell-checking according to Ispell syntax. If argument FOLLOWING is non-nil or if `ispell-following-word' is non-nil when called interactively, then the following word (rather than preceding) is checked when the cursor is not over a word. Optional second argument contains other chars that can be included in word many times. Word syntax described by `ispell-dictionary-alist' (which see). (defalias 'flyspell-get-word #[(following) "\306 \307 \310 \311 \312\n\231\203&\313\n\314\315 \203 \316\202!\314\260\202)\317P\320\320\320\320\321!\204O\203I\322d\323#\210\202O\324e\323#\210\324 e\325#\210\320\312\n\231\203\224\321\n!\203\224o\204\224 \203p \203\224`=\204\224`\323\326u\210\321!\203\216\324 e\327#\210\202^\330u\210\202^)\322\fd\323#\320=?\205\265\331\224`\332\"\211E. \207" [flyspell-casechars flyspell-not-casechars ispell-otherchars ispell-many-otherchars-p word-regexp did-it-once 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 end word following pos] 8 (#$ . 27254)]) #@36 Flyspell text between BEG and END. (defalias 'flyspell-small-region #[(beg end) "\212 V\203 \n)b\210\305` W\203V \306U\2033\307\310\311`Z! Z\245\306_\"\210\305\2026 T\312 \210\313\305!\210`\314v\210` W\203R`\fTV\203R\315u\210)\202)\315u\210\307\316!\210\312 )\207" [beg end old count cur 0 100 message "Spell Checking...%d%%" float flyspell-word sit-for 1 -1 "Spell Checking completed."] 5 (#$ . 28507)]) #@39 The external Flyspell Ispell process. (defvar flyspell-external-ispell-process nil (#$ . 28939)) (byte-code "\301B\305\301!\204\f\306\302B\305\302!\204\306\303B\305\303!\204$e\304B\305\304!\2040d\306\207" [current-load-list flyspell-external-ispell-buffer flyspell-large-region-buffer flyspell-large-region-beg flyspell-large-region-end boundp nil] 2) (defalias 'flyspell-external-point-words #[nil "\211q\210\306 \210\n Z `dSW\203[\307\310d\311#\203U\312\313!\314\225b\210q\210 b\210\315\316\317`\fZ! \245\320_#\210\321\n\311#\203N``Sb\210\322 \210 q\210)\202db\210\202*\315\323!\210\324!\210\325\211)\207" [flyspell-external-ispell-buffer buffer flyspell-large-region-end flyspell-large-region-beg start size beginning-of-buffer re-search-forward "\\([^\n]+\\)\n" t match-string 1 0 message "Spell Checking...%d%% [%s]" float 100 search-forward flyspell-word "Spell Checking completed." kill-buffer nil word flyspell-large-region-buffer] 6]) (defalias 'flyspell-large-region #[(beg end) "p\306\307!\211\f q\210\310 \210\311\312!\210q\210\313\314\f\315 \315\316\315\2034\317 \203G\320\321D\"\203X\320\322\323!D\"\320\"\211)& \211 \324U\203q\325 \202t\326\327!+\207" [curbuf buffer flyspell-external-ispell-buffer flyspell-large-region-buffer beg flyspell-large-region-beg get-buffer-create "*flyspell-region*" erase-buffer message "Checking region..." apply call-process-region nil "-l" ispell-get-ispell-args append "-d" "-p" expand-file-name 0 flyspell-external-point-words error "Can't check region..." end flyspell-large-region-end ispell-program-name 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) "\306\307!\204&\310\307!\311!\n\312=\203\313\314 C!\210\202\"\315 \314 \"\210 )L\210 \fU?\205P\212 \fV\203; \f )\f ZV\203K\316 \f\"\202O\317 \f\")\207" [flyspell-mouse-map map flyspell-emacs beg end old boundp flyspell-local-mouse-map make-local-variable copy-keymap xemacs set-keymap-parents current-local-map set-keymap-parent flyspell-large-region flyspell-small-region] 4 (#$ . 30694) "r"]) #@24 Flyspell whole buffer. (defalias 'flyspell-buffer #[nil "\300ed\"\207" [flyspell-region] 3 (#$ . 31184) nil]) (byte-code "\301B\303\301!\204\f\304\302B\303\302!\204\304\304\207" [current-load-list flyspell-old-buffer-error flyspell-old-pos-error boundp nil] 2) #@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 (#$ . 31461) 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 (#$ . 32023)]) #@43 Delete all the overlays used by flyspell. (defalias 'flyspell-delete-all-overlays #[nil "\301ed\"\211:\205\302@!\203\303@!\210A\211\202)\207" [l overlays-in flyspell-overlay-p delete-overlay] 4 (#$ . 32222)]) #@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 (#$ . 32448)]) #@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 (#$ . 32772)]) #@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\302\310#\210 \203&\311\n\n #\210\n)\207" [beg end flyspell-overlay face mouse-face flyspell-use-local-map make-overlay nil t overlay-put flyspell-overlay-keymap-property-name flyspell-local-mouse-map] 6 (#$ . 33232)]) #@72 Set up an overlay on a misspelled word, in the buffer from BEG to END. (defalias 'flyspell-highlight-incorrect-region #[(beg end poss) "\306\307 \n$?\205P \204\310!?\205P\f\204&\311 !\203&\312 !\210\202H\313!\211:\203G\314@!\203>\312@!\210A\211\202,)\315 \316\317$\211\207" [beg end poss flyspell-highlight-properties flyspell-persistent-highlight flyspell-overlay run-hook-with-args-until-success flyspell-incorrect-hook flyspell-properties-at-p overlayp delete-overlay overlays-at flyspell-overlay-p make-flyspell-overlay flyspell-incorrect-face highlight overlays] 6 (#$ . 33775)]) #@72 Set up an overlay on a duplicated word, in the buffer from BEG to END. (defalias 'flyspell-highlight-duplicate-region #[(beg end) "\204 \306 !?\205A\n\204\307 !\203\310 !\210\2029\311 !\211:\2038\312\f@!\2031\310\f@!\210\fA\211\202!)\313 \314\315$\211\207" [flyspell-highlight-properties beg flyspell-persistent-highlight flyspell-overlay overlays end flyspell-properties-at-p overlayp delete-overlay overlays-at flyspell-overlay-p make-flyspell-overlay flyspell-duplicate-face highlight] 6 (#$ . 34391)]) (byte-code "\301B\305\301!\204\f\306\302B\305\302!\204\306\303B\305\303!\204$\306\304B\305\304!\2040\306\307\301!\210\307\302!\210\307\303!\210\307\304!\207" [current-load-list flyspell-auto-correct-pos flyspell-auto-correct-region flyspell-auto-correct-ring flyspell-auto-correct-word boundp nil make-variable-buffer-local] 2) #@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 \310\"\203\fS\211\311U\203\312\313\314\"\210\202\207" [pos pos1 ovs ov arg previous-overlay-change overlays-at overlay-get flyspell-overlay 0 throw exit t] 3) ispell-word error "No word to correct before point"] 5 (#$ . 35264) 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 \"\202Q\320 !+\207" [corrections pos l string flyspell-auto-correct-word num "Corrections:" nil 80 " " put-text-property face flyspell-incorrect-face fboundp display-message no-log message] 7]) (defalias 'flyspell-abbrev-table #[nil "\203 \207\n\207" [flyspell-use-global-abbrev-table-p global-abbrev-table local-abbrev-table] 1]) #@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 =\203n :\203n @ A\f\211 \\|\210A\211@\211G \241\210\fb\210\203T\307\310  \"\203K\311\310  #\210\202T\312\310  #\210c\210\313 \210\314!\210*\315 `#\210`\211*\202q\316\317!\317\211\211!\"\211A@AA@\"@\211 \320#\321\"\210\320#\322\323Q\"\210\324#!\210$@\325\230\203\236$A\211$:\203\274\326$@!!!\327=\204k!;\204k!\204\325\330\331!\210\202k%\203\345\332!AA@\333\"\202\352!AA@&\317&:\203j&@\211'\211(!@\232\204i\f(GB&\211)A:\203)A\211)\202)!@&B\241\210)&\f\"|\210(c\210\203X\307\310 \"\203O\311\310 (#\210\202X\312\310 (#\210\313 \210\314(B!\210\315 `#\210*)`\334\327!,*\207" [old-max pos flyspell-auto-correct-pos flyspell-auto-correct-region start len flyspell-accept-buffer-local-defs flyspell-already-abbrevp flyspell-abbrev-table flyspell-change-abbrev define-abbrev flyspell-word flyspell-display-next-corrections flyspell-ajust-cursor-point flyspell-get-word nil process-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 poss end ispell-process ispell-filter flyspell-sort-corrections replacements replace new-word l] 6 (#$ . 36549) nil]) #@356 Check spelling of word under or before the cursor. If the word is not found in dictionary, display possible corrections in a popup menu allowing you to choose one. Word syntax described by `ispell-dictionary-alist' (which see). This will check or reload the dictionary. Use \[ispell-change-dictionary] or \[ispell-region] to update the Ispell process. (defalias 'flyspell-correct-word #[(event) "\302=\203\n\303 !\207\304 !\207" [flyspell-emacs event xemacs flyspell-correct-word/mouse-keymap flyspell-correct-word/local-keymap] 2 (#$ . 38043) "e"]) #@305 emacs 19.xx seems to be buggous. Overlay keymap does not seems to work correctly with local map. That is, if a key is not defined for the overlay keymap, the current local map, is not checked. The binding is resolved with the global map. The consequence is that we can not use overlay map with flyspell. (defalias 'flyspell-correct-word/local-keymap #[(event) "\300\213\207" [((byte-code "`\305 !\210\306`!\307\211:\203(\310 @!\203! @\307\211\202 A\211\202 b\210\n\2035\311 !\202E\307\312\313 !\205D\314\312\313 !!)+\207" [save event overlay overlays flyspell-mode mouse-set-point overlays-at nil flyspell-overlay-p flyspell-correct-word/mouse-keymap key-binding this-command-keys command-execute] 4))] 1 (#$ . 38605) "e"]) #@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/mouse-keymap #[(event) "\306 \210`\307 !\210`\310\311!\311\211\211\211&'&A@&AA@&@&\312(\313\"\210\312(\314&\315Q\"\210\316(!\210)@\317\230\2039)A\211):\203V\320)@! \321=\204B ;\204B \204l\322\323!\210\202B\324\325\326 \"\203+\327 &#\211\330=\203\207b\210\202B\n\300=\203\245b\210\312(\331&\315Q\"\210\332'!\210\333*\202B\n\334=\204\261\n\335=\203\333\312(\336&\315Q\"\210*\204\305*C*\332'!\210b\210\n\334=\203B\337&!\210\202B\n\203%\n:\204\350\n\202\352\n@&G\f ZZ'\\'\211+ @\232\204!d, \f|\210+c\210-\203\340\341 &+#\210\342',#\210)*\202Bb\210\202B.\343=\203B\344 &' \f&\210b\210\345\321!.\207" [save event replace poss end start flyspell-accept-buffer-local-defs mouse-set-point flyspell-get-word nil process-send-string "%\n" "^" "\n" accept-process-output "" ispell-parse-output t error "Ispell: error in Ispell process" string-match "GNU" emacs-version flyspell-emacs-popup ignore "*" flyspell-unhighlight-at (t) buffer session "@" ispell-add-per-file-word-list define-abbrev flyspell-abbrev-table flyspell-ajust-cursor-point xemacs flyspell-xemacs-popup ispell-pdict-save word cursor-location ispell-process ispell-filter ispell-pdict-modified-p new-word old-max flyspell-abbrev-p flyspell-emacs] 9 (#$ . 39352) "e"]) #@33 The xemacs popup menu callback. (defalias 'flyspell-xemacs-correct #[(replace poss word cursor-location start end save) "\306=\203\307\207\310=\203#\311 \312\n\313Q\"\210\311 \314\"\210\315 !\210\316\211\207\317=\204/\320=\203L\311 \321\n\313Q\"\210\315 !\210\f\204B\fC\317=\205\225\322\n!\207\205\225d:\204Z\202\\@\nG ZZ \\@\232\204\215 |\210b\210c\210\203\215\323\324 \n#\210\325 #+\207" [replace ispell-process word cursor-location ispell-pdict-modified-p end ignore nil save process-send-string "*" "\n" "#\n" flyspell-unhighlight-at (t) buffer session "@" ispell-add-per-file-word-list define-abbrev flyspell-abbrev-table flyspell-ajust-cursor-point start new-word old-max poss flyspell-abbrev-p] 5 (#$ . 40812)]) (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\312 \210\306 \211A@ AATD @D*\n\203<\313 AA@\314\"\202@ AA@\211:\205J\315\316\f\" AAA@\211:\203d\317@P\320D\321\322E\202e\323 :\203v\324 \325B\"\202x)\326B\327\330\331\206\216#D\"@-\207" [event mouse-pos flyspell-sort-corrections poss corrects cor-menu mouse-position set-mouse-position frame-width 2 unfocus-frame sort string< mapcar #[(correct) "\211D\207" [correct] 2] "Save affix: " save ("Accept (session)" accept) ("Accept (buffer)" buffer) (("Save word" save) ("Accept (session)" session) ("Accept (buffer)" buffer)) append "" "flyspell correction menu" x-popup-menu format "%s [%s]" affix base-menu menu word ispell-local-dictionary ispell-dictionary] 7 (#$ . 41768)]) #@24 The XEmacs popup menu. (defalias 'flyspell-xemacs-popup #[(event poss word cursor-location start end save) "\203\306 AA@\307\"\202 AA@\211:\205\310\311\n\" AAA@\211:\203B\312\313\f@P\314\315\316 D \257\317#\202V\312\320\314\321\316 D \257\317#\312\322\314\323\316 D \257\317#\312\324\314\325\316 D \257\317#  :\203\227\326 \327 F\"\202\236 E+!\330\331\332 \"\206\254##!B!,\207" [flyspell-sort-corrections poss corrects cor-menu affix word sort string< mapcar #[(correct) "\306\307\310 D\n \f \n\257\311#\207" [correct poss word cursor-location start end vector flyspell-xemacs-correct quote t save] 10] vector "Save affix: " flyspell-xemacs-correct 'save quote t "Save word" 'save "Accept (session)" 'session "Accept (buffer)" 'buffer append "-" popup-menu format "%s [%s]" cursor-location start end save buffer session menu ispell-local-dictionary ispell-dictionary] 13 (#$ . 42624)]) #@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) ":\205Q\305\306!\307\212\310\n \f#\210\nq\210eTb\210m\204= \204=\311\312!\210\313 \3148\235\2033`\202\311\315!\210\307u\210\202) \205P\212 \\\315\\b\210\311\315!\210)\316*\207" [poss found temp-buffer beg end get-buffer-create " *flyspell-temp*" nil copy-to-buffer transpose-chars 1 buffer-string 2 -1 t] 4 (#$ . 43591)]) #@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^\305\306!\307\212\310\n \f#\210\nq\210eTb\210m\204J \204J\311\307f`Sf\"\203D\312\313!\210\314 \3158\235\203=`\202D\316`Sf\313\"\210\307u\210\202) \205]\212 \\\317\\b\210\312\313!\210)\320*\207" [poss found temp-buffer beg end get-buffer-create " *flyspell-temp*" nil copy-to-buffer char-equal delete-char 1 buffer-string 2 insert-char -1 t] 4 (#$ . 44389)]) (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)