Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
textmodes /
Delete
Unzip
Name
Size
Permission
Date
Action
artist.elc
156.89
KB
-rw-r--r--
2023-06-07 04:15
bib-mode.elc
7.72
KB
-rw-r--r--
2023-06-07 04:15
bibtex-style.elc
6.42
KB
-rw-r--r--
2023-06-07 04:15
bibtex.elc
179
KB
-rw-r--r--
2023-06-07 04:15
conf-mode.elc
33.45
KB
-rw-r--r--
2023-06-07 04:15
css-mode.elc
14.46
KB
-rw-r--r--
2023-06-07 04:15
dns-mode.elc
7.41
KB
-rw-r--r--
2023-06-07 04:15
enriched.elc
12.39
KB
-rw-r--r--
2023-06-07 04:15
fill.elc
34.14
KB
-rw-r--r--
2023-06-07 04:19
flyspell.elc
51.19
KB
-rw-r--r--
2023-06-07 04:15
ispell.elc
102.37
KB
-rw-r--r--
2023-06-07 04:15
makeinfo.elc
6.1
KB
-rw-r--r--
2023-06-07 04:15
nroff-mode.elc
11.31
KB
-rw-r--r--
2023-06-07 04:15
page-ext.elc
16.17
KB
-rw-r--r--
2023-06-07 04:15
page.elc
3.14
KB
-rw-r--r--
2023-06-07 04:19
paragraphs.elc
15.39
KB
-rw-r--r--
2023-06-07 04:19
picture.elc
26.89
KB
-rw-r--r--
2023-06-07 04:15
po.elc
2.79
KB
-rw-r--r--
2023-06-07 04:15
refbib.elc
17.82
KB
-rw-r--r--
2023-06-07 04:15
refer.elc
8.93
KB
-rw-r--r--
2023-06-07 04:15
refill.elc
6.06
KB
-rw-r--r--
2023-06-07 04:15
reftex-auc.elc
5.91
KB
-rw-r--r--
2023-06-07 04:15
reftex-cite.elc
28.38
KB
-rw-r--r--
2023-06-07 04:15
reftex-dcr.elc
12.29
KB
-rw-r--r--
2023-06-07 04:15
reftex-global.elc
12.25
KB
-rw-r--r--
2023-06-07 04:15
reftex-index.elc
66.13
KB
-rw-r--r--
2023-06-07 04:15
reftex-parse.elc
21.31
KB
-rw-r--r--
2023-06-07 04:15
reftex-ref.elc
19.79
KB
-rw-r--r--
2023-06-07 04:15
reftex-sel.elc
21.57
KB
-rw-r--r--
2023-06-07 04:15
reftex-toc.elc
32.76
KB
-rw-r--r--
2023-06-07 04:15
reftex-vars.elc
77.63
KB
-rw-r--r--
2023-06-07 04:15
reftex.elc
59.15
KB
-rw-r--r--
2023-06-07 04:15
remember.elc
12.86
KB
-rw-r--r--
2023-06-07 04:15
rst.elc
100.69
KB
-rw-r--r--
2023-06-07 04:15
sgml-mode.elc
82.12
KB
-rw-r--r--
2023-06-07 04:15
table.elc
156.49
KB
-rw-r--r--
2023-06-07 04:15
tex-mode.elc
93.88
KB
-rw-r--r--
2023-06-07 04:15
texinfmt.elc
83.54
KB
-rw-r--r--
2023-06-07 04:15
texinfo.elc
45.52
KB
-rw-r--r--
2023-06-07 04:15
texnfo-upd.elc
47.68
KB
-rw-r--r--
2023-06-07 04:15
text-mode.elc
9.02
KB
-rw-r--r--
2023-06-07 04:19
tildify.elc
8.45
KB
-rw-r--r--
2023-06-07 04:15
two-column.elc
12.48
KB
-rw-r--r--
2023-06-07 04:15
underline.elc
1.34
KB
-rw-r--r--
2023-06-07 04:15
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:15:41 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/textmodes/flyspell.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\301\312\313& \210\314\315\316\317\312\303\320\321&\210\314\322\316\323\312\303\320\321&\210\314\324\325\326\312\303\320\327\330\331& \210\314\332\304\333\312\303\330\334\320\321& \210\314\335\336\337\312\303\330\334\320\340& \210\314\341\342\343\312\303\320\344&\210\314\345\316\346\312\303\320\321&\210\314\347\316\350\312\303\320\321&\210\314\351\352\353\312\303\330\334\320\354& \210\314\355\304\356\312\303\320\357&\210\314\360\361\362\312\303\330\334\320\363& \210\314\364\304\365\312\303\330\334\320\366& \210\314\367\316\370\312\303\320\321&\210\314\371\316\372\312\303\320\321&\210\314\373\304\374\312\303\330\334\320\375& \210\314\376\304\377\312\303\330\334\320\201@ & \210\314\201A \201B \201C \312\303\330\334\320\201D & \210\314\201E \304\201F \312\303\320\321&\210\314\201G \201H \201I \312\303\330\334\320\201J & \210\314\201K \304\201L \312\303\330\334\320\321& \210\314\201M \304\201N \312\303\330\334\320\321& \210\314\201O \201P \201Q \312\303\320\201R &\210\314\201S \201T \201U \312\303\330\334\320\201V & \210\314\201W \201X \201Y \312\303\320\201Z &\210\314\201[ \304\201\\ \312\303\320\201] &\210\314\201^ \304\201_ \312\303\320\201` &\210\314\201a \316\201b \312\303\320\321\201c \201d \201e \201f & \210\314\201g \201h \201i \312\303%\207" [require ispell custom-declare-group flyspell nil "Spell checking on the fly." :tag "FlySpell" :prefix "flyspell-" :group processes custom-declare-variable flyspell-highlight-flag t "How Flyspell should indicate misspelled words.\nNon-nil means use highlight, nil means use minibuffer messages." :type boolean flyspell-mark-duplications-flag "Non-nil means Flyspell reports a repeated word as an error.\nSee `flyspell-mark-duplications-exceptions' to add exceptions to this rule.\nDetection of repeated words is not implemented in\n\"large\" regions; see `flyspell-large-region'." flyspell-mark-duplications-exceptions '((nil "that" "had") ("\\`francais" "nous" "vous")) "A list of exceptions for duplicated words.\nIt should be a list of (LANGUAGE . EXCEPTION-LIST).\n\nLANGUAGE is nil, which means the exceptions apply regardless of\nthe current dictionary, or a regular expression matching the\ndictionary name (`ispell-local-dictionary' or\n`ispell-dictionary') for which the exceptions should apply.\n\nEXCEPTION-LIST is a list of strings. The checked word is\ndowncased before comparing with these exceptions." (alist :key-type (choice (const :tag "All dictionaries" nil) string) :value-type (repeat string)) :version "24.1" flyspell-sort-corrections "Non-nil means, sort the corrections alphabetically before popping them." "21.1" flyspell-duplicate-distance -1 "The maximum distance for finding duplicates of unrecognized words.\nThis applies to the feature that when a word is not found in the dictionary,\nif the same spelling occurs elsewhere in the buffer,\nFlyspell uses a different face (`flyspell-duplicate') to highlight it.\nThis variable specifies how far to search to find such a duplicate.\n-1 means no limit (search the whole buffer).\n0 means do not search for duplicate unrecognized spellings." (choice (const :tag "no limit" -1) number) flyspell-delay 3 "The number of seconds to wait before checking, after a \"delayed\" command." number flyspell-persistent-highlight "Non-nil means misspelled words remain highlighted until corrected.\nIf this variable is nil, only the most recently detected misspelled word\nis highlighted." flyspell-highlight-properties "Non-nil means highlight incorrect words even if a property exists for this word." flyspell-default-delayed-commands '(self-insert-command delete-backward-char backward-or-forward-delete-char delete-char scrollbar-vertical-drag backward-delete-char-untabify) "The standard list of delayed commands for Flyspell.\nSee `flyspell-delayed-commands'." (repeat (symbol)) flyspell-delayed-commands "List of commands that are \"delayed\" for Flyspell mode.\nAfter these commands, Flyspell checking is delayed for a short time,\nwhose length is specified by `flyspell-delay'." (repeat (symbol)) flyspell-default-deplacement-commands '(next-line previous-line handle-switch-frame handle-select-window scroll-up scroll-down) "The standard list of deplacement commands for Flyspell.\nSee `flyspell-deplacement-commands'." (repeat (symbol)) flyspell-deplacement-commands "List of commands that are \"deplacement\" for Flyspell mode.\nAfter these commands, Flyspell checking is performed only if the previous\ncommand was not the very same command." (repeat (symbol)) flyspell-issue-welcome-flag "Non-nil means that Flyspell should display a welcome message when started." flyspell-issue-message-flag "Non-nil means that Flyspell emits messages when checking words." flyspell-incorrect-hook "List of functions to be called when incorrect words are encountered.\nEach function is given three arguments. The first two\narguments are the beginning and the end of the incorrect region.\nThe third is either the symbol `doublon' or the list\nof possible corrections as returned by `ispell-parse-output'.\n\nIf any of the functions return non-nil, the word is not highlighted as\nincorrect." hook flyspell-default-dictionary "A string that is the name of the default dictionary.\nThis is passed to the `ispell-change-dictionary' when flyspell is started.\nIf the variable `ispell-local-dictionary' or `ispell-dictionary' is non-nil\nwhen flyspell is started, the value of that variable is used instead\nof `flyspell-default-dictionary' to select the default dictionary.\nOtherwise, if `flyspell-default-dictionary' is nil, it means to use\nIspell's ultimate default dictionary." (choice string (const :tag "Default" nil)) flyspell-tex-command-regexp "\\(\\(begin\\|end\\)[ ]*{\\|\\(cite[a-z*]*\\|label\\|ref\\|eqref\\|usepackage\\|documentclass\\)[ ]*\\(\\[[^]]*\\]\\)?{[^{}]*\\)" "A string that is the regular expression that matches TeX commands." string flyspell-check-tex-math-command "Non-nil means check even inside TeX math environment.\nTeX math environments are discovered by `texmathp', implemented\ninside AUCTeX package. That package may be found at\nURL `http://www.gnu.org/software/auctex/'" flyspell-dictionaries-that-consider-dash-as-word-delimiter '("francais" "deutsch8" "norsk") "List of dictionary names that consider `-' as word delimiter." (repeat (string)) flyspell-abbrev-p "If non-nil, add correction to abbreviation table." flyspell-use-global-abbrev-table-p "If non-nil, prefer global abbrev table to local abbrev table." flyspell-mode-line-string " Fly" "String displayed on the mode line when flyspell is active.\nSet this to nil if you don't want a mode line indicator." (choice string (const :tag "None" nil)) flyspell-large-region 1000 "The threshold that determines if a region is small.\nIf the region is smaller than this number of characters,\n`flyspell-region' checks the words sequentially using regular\nflyspell methods. Else, if the region is large, a new Ispell process is\nspawned for speed.\n\nDoubled words are not detected in a large region, because Ispell\ndoes not check for them.\n\nIf this variable is nil, all regions are treated as small." (choice number (const :tag "All small" nil)) flyspell-insert-function #'insert "Function for inserting word by flyspell upon correction." function flyspell-before-incorrect-word-string "String used to indicate an incorrect word starting." (choice string (const nil)) flyspell-after-incorrect-word-string "String used to indicate an incorrect word ending." (choice string (const nil)) flyspell-use-meta-tab "Non-nil means that flyspell uses M-TAB to correct word." :initialize custom-initialize-default :set #[(sym val) "\303\304 \nL\205\n \305#\207" [flyspell-mode-map sym val define-key "\211" flyspell-auto-correct-word] 5] flyspell-auto-correct-binding [(control 59)] "The key binding for flyspell auto correction."] 12) #@234 Function providing per-mode customization over which words are flyspelled. Returns t to continue checking, nil otherwise. Flyspell mode sets this variable to whatever is the `flyspell-mode-predicate' property of the major mode name. (defvar flyspell-generic-check-word-predicate nil (#$ . 8485)) (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`)\312\301!\204 d\202' \212db\210\313 \310\311#\210`)` W\203A \212\314 \210\315\316!)\205T `\317\225V\202T `\nV\203K \310\202T \212\314 \210\315\320!)?*\207" [mail-header-separator message-signature-separator signature-begin header-end re-search-forward "^" regexp-quote "$" nil t boundp re-search-backward beginning-of-line looking-at "^Subject:" 0 "[>}|]\\|To:"] 5 (#$ . 9063)]) (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 (#$ . 9686)]) (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\301\302\303\304#)?\205' \212`\305 \210\306\307\310 \304#\205% \311\224Y\205% \311\225X*?\207" [this re-search-backward "^[ ]*%%%[ ]+Local" nil t beginning-of-line re-search-forward "\\\\\\(cite\\|label\\|ref\\){[^}]*}" line-end-position 0] 4 (#$ . 9947)]) (byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\306\307\310\"\207" [put sgml-mode flyspell-mode-predicate sgml-mode-flyspell-verify html-mode nxml-mode autoload sgml-lexical-context "sgml-mode"] 4) #@236 Function used for `flyspell-generic-check-word-predicate' in SGML mode. Tag and attribute names are not spell checked, everything else is. String values of attributes are checked because they can be text like <img alt="Some thing.">. (defalias 'sgml-mode-flyspell-verify #[nil "\300 @\301>?\207" [sgml-lexical-context (tag pi)] 2 (#$ . 10562)]) #@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) (#$ . 10914)) #@72 Used for `flyspell-generic-check-word-predicate' in programming modes. (defalias 'flyspell-generic-progmode-verify #[nil "\302`S\303\"\211 >)\207" [f flyspell-prog-text-faces get-text-property face] 4 (#$ . 11091)]) #@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 (#$ . 11314) nil]) #@28 Overlay compatibility kit. (autoload 'make-overlay "overlay" '(#$ . 11584) t) #@28 Overlay compatibility kit. (autoload 'overlayp "overlay" '(#$ . 11668) t) #@28 Overlay compatibility kit. (autoload 'overlays-in "overlay" '(#$ . 11748) t) #@28 Overlay compatibility kit. (autoload 'delete-overlay "overlay" '(#$ . 11831) t) #@28 Overlay compatibility kit. (autoload 'overlays-at "overlay" '(#$ . 11917) t) #@28 Overlay compatibility kit. (autoload 'overlay-put "overlay" '(#$ . 12000) t) #@28 Overlay compatibility kit. (autoload 'overlay-get "overlay" '(#$ . 12083) t) #@28 Overlay compatibility kit. (autoload 'previous-overlay-change "overlay" '(#$ . 12166) t) #@48 Keymap for Flyspell to put on erroneous words. (defvar flyspell-mouse-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key [down-mouse-2] flyspell-correct-word [mouse-2] undefined] 4) (#$ . 12261)) #@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) (#$ . 12513)) #@68 Non-nil means that the `-' char is considered as a word delimiter. (defvar flyspell-consider-dash-as-word-delimiter-flag nil (#$ . 12997)) (make-variable-buffer-local 'flyspell-consider-dash-as-word-delimiter-flag) (defvar flyspell-dash-dictionary nil) (make-variable-buffer-local 'flyspell-dash-dictionary) (defvar flyspell-dash-local-dictionary nil) (byte-code "\300\301!\210\302\303\304\305\306\307%\210\302\310\311\312\306\307%\207" [make-variable-buffer-local flyspell-dash-local-dictionary custom-declare-face flyspell-incorrect ((t :underline t :inherit error)) "Flyspell face for misspelled words." :group flyspell flyspell-duplicate ((t :underline t :inherit warning)) "Flyspell face for words that appear twice in a row.\nSee also `flyspell-duplicate-distance'."] 6) (defvar flyspell-overlay nil) #@95 Non-nil if Flyspell mode is enabled. Use the command `flyspell-mode' to change this variable. (defvar flyspell-mode nil (#$ . 13810)) (make-variable-buffer-local 'flyspell-mode) #@1188 Toggle on-the-fly spell checking (Flyspell mode). With a prefix argument ARG, enable Flyspell mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. Flyspell mode is a buffer-local minor mode. When enabled, it spawns a single Ispell process and checks each word. The default flyspell behavior is to highlight incorrect words. Bindings: \[ispell-word]: correct words (using Ispell). \[flyspell-auto-correct-word]: automatically correct word. \[flyspell-auto-correct-previous-word]: automatically correct the last misspelled word. \[flyspell-correct-word] (or down-mouse-2): popup correct words. Hooks: This runs `flyspell-mode-hook' after flyspell mode is entered or exit. Remark: `flyspell-mode' uses `ispell-mode'. Thus all Ispell options are valid. For instance, a different dictionary can be used by invoking `ispell-change-dictionary'. Consider using the `ispell-parser' to check your text. For instance consider adding: (add-hook 'tex-mode-hook (function (lambda () (setq ispell-parser 'tex)))) in your init file. \[flyspell-region] checks all words inside a region. \[flyspell-buffer] checks the whole buffer. (defalias 'flyspell-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203 \307\310\311\217\210\202# \312 \210\313\314\n\203- \315\202. \316\"\210\317\320!\203O \303 \203B \303 \232\203O \321\322\n\203L \323\202M \324\"\210)\325 \210\n\207" [#1=#:last-message arg flyspell-mode current-message toggle prefix-numeric-value 0 err (flyspell-mode-on) ((error (byte-code "\301\302A\"\210\303\304!\207" [err message "Error enabling Flyspell mode:\n%s" flyspell-mode -1] 3))) flyspell-mode-off run-hooks flyspell-mode-hook flyspell-mode-on-hook flyspell-mode-off-hook called-interactively-p any message "Flyspell mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 13996) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\211%\207" [flyspell-mode-map add-minor-mode flyspell-mode flyspell-mode-line-string nil] 6) #@40 Unconditionally turn on Flyspell mode. (defalias 'turn-on-flyspell #[nil "\300\301!\207" [flyspell-mode 1] 2 (#$ . 16042)]) #@41 Unconditionally turn off Flyspell mode. (defalias 'turn-off-flyspell #[nil "\300\301!\207" [flyspell-mode -1] 2 (#$ . 16172)]) (custom-add-option 'text-mode-hook 'turn-on-flyspell) (defvar flyspell-buffers nil) #@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 (#$ . 16389)]) #@61 The buffer in which the last flyspell operation took place. (defvar flyspell-last-buffer nil (#$ . 16575)) (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\205 \n@r q\210\305\306!\210)\nA\211\204 \303*\207" [flyspell-last-buffer buf --dolist-tail-- 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 $)%\205r &\205r \331\332!\205r \333\334\325\335# '\336\337'\203o \340\341\342'!\"\202p \343\")\207" [ispell-highlight-face ispell-local-dictionary ispell-dictionary flyspell-default-dictionary major-mode mode-predicate ispell-set-spellchecker-params flyspell-incorrect ispell-change-dictionary flyspell-accept-buffer-local-defs force flyspell-delay-commands flyspell-deplacement-commands add-hook post-command-hook flyspell-post-command-hook t pre-command-hook flyspell-pre-command-hook after-change-functions flyspell-after-change-function nil hack-local-variables-hook flyspell-hack-local-variables-hook flyspell-mode-predicate called-interactively-p interactive where-is-internal flyspell-auto-correct-word non-ascii message "%s" format "Welcome to flyspell. Use %s or Mouse-2 to correct words." key-description "Welcome to flyspell. Use Mouse-2 to correct words." flyspell-generic-check-word-predicate flyspell-issue-message-flag flyspell-issue-welcome-flag binding] 7 (#$ . 17508)]) #@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 mapc flyspell-delay-command] 3 (#$ . 18808)]) #@229 Set COMMAND to be delayed, for Flyspell. When flyspell `post-command-hook' is invoked because a delayed command has been used, the current word is not immediately checked. It will be checked only after `flyspell-delay' seconds. (defalias 'flyspell-delay-command #[(command) "\301\302\303#\207" [command put flyspell-delayed t] 4 (#$ . 19051) "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 mapc flyspell-deplacement-command] 3 (#$ . 19436)]) #@183 Set COMMAND that implement cursor movements, for Flyspell. When flyspell `post-command-hook' is invoked because a deplacement command has been used, the current word is not checked. (defalias 'flyspell-deplacement-command #[(command) "\301\302\303#\207" [command put flyspell-deplacement t] 4 (#$ . 19703) "SDeplacement Flyspell after Command: "]) (defvar flyspell-word-cache-start nil) (defvar flyspell-word-cache-end nil) (defvar flyspell-word-cache-word nil) (defvar flyspell-word-cache-result '_) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [make-variable-buffer-local flyspell-word-cache-start flyspell-word-cache-end flyspell-word-cache-word flyspell-word-cache-result] 2) #@39 Buffer current before `this-command'. (defvar flyspell-pre-buffer nil (#$ . 20411)) #@37 Point before running `this-command' (defvar flyspell-pre-point nil (#$ . 20501)) #@38 Column before running `this-command' (defvar flyspell-pre-column nil (#$ . 20588)) (defvar flyspell-pre-pre-buffer nil) (defvar flyspell-pre-pre-point nil) (make-variable-buffer-local 'flyspell-pre-point) #@51 The last interactive command checked by Flyspell. (defvar flyspell-previous-command nil (#$ . 20799)) #@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 (#$ . 20907) 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 (#$ . 21123)]) #@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 "\306 \247\203 \307\n!\204 \310\202\304 =\203\" \f\n=\203\" \310\202\304 `SU\203B fz\311=\204O \312\230\204B \313\314 \211T\"\"\204O `U\204O `TU\203S \310\202\304 9\203\237 \204\237 \315N\204p \316N\203\237 =\203\237 i\317U\204\233 iU\204\233 f\203\233 fz\311=\204\233 \312\230\204\237 \313\314 \211T\"\"\203\237 \310\202\304 p\n=\204\251 \320\202\304 \247\203\265 \247\204\271 \320\202\304 W\206\304 V)\207" [ispell-otherchars flyspell-pre-point flyspell-pre-buffer flyspell-pre-pre-point flyspell-pre-pre-buffer this-command ispell-get-otherchars buffer-live-p nil 119 "" string-match buffer-substring-no-properties flyspell-delayed flyspell-deplacement 0 t executing-kbd-macro flyspell-previous-command flyspell-pre-column flyspell-word-cache-start flyspell-word-cache-end] 5 (#$ . 21630)]) (defvar flyspell-changes nil) (make-variable-buffer-local 'flyspell-changes) #@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 (#$ . 22732)]) #@130 Return non-nil 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>\205\n V?\2052 \n\247\2052 \nY\203 \n X\2062 `\211Y\2061 X\2061 TU)?\207" [start stop flyspell-pre-point pos (10 32)] 3 (#$ . 22933)]) #@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 "\306 dSeX\203 \307\202k i\310V\203B i =\204B \212\311u\210\312\313 !\205: \314\230\2042 \312!?\205: \n\206: \312\315!?)\203B \316\202k 9\203j \317N\203T \f =?\202k \320N\203f ?\205k \321!\202k \316\202k \316)\207" [ispell-otherchars flyspell-pre-column flyspell-consider-dash-as-word-delimiter-flag this-command flyspell-previous-command unread-command-events ispell-get-otherchars nil 0 -1 looking-at flyspell-get-not-casechars "" "-" t flyspell-deplacement flyspell-delayed sit-for flyspell-delay] 2 (#$ . 23278)]) (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 "\306\307 p`r\310\311!q\210\312\313\314\f\"\313\315\f9\205 \f\316N\"\313\317 \"\313\320r\nq\210o\2031 \321\2024 `Sf)r\nq\210o?\205c \212\322u\210\323\324 !\205b \325\230\204V \323 !?\205b \204a \323\326!?\205b \327))#\313\330\f9\203r \f\316N\204v \331\202\263 r\nq\210o?\205\240 \212\322u\210\323\324 !\205\237 \325\230\204\227 \323 !?\205\237 \206\237 \323\326!?))\203\250 \332\202\263 \250\204\262 \333\202\263 \334\"\261\210db,\207" [debug-on-error point oldbuf ispell-otherchars this-command flyspell-consider-dash-as-word-delimiter-flag t ispell-get-otherchars get-buffer-create "*flyspell-debug*" "WORD:\n" format " this-cmd : %S\n" " delayed : %S\n" flyspell-delayed " point : %S\n" " prev-char : [%c] %S\n" 32 -1 looking-at flyspell-get-not-casechars "" "\\-" 2 " because : %S\n" not-delayed separator no-delay sit-for flyspell-delay] 9]) (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 on-the-fly. (defalias 'flyspell-post-command-hook #[nil "\205 \301\302\303\217\207" [flyspell-mode nil (byte-code "\306 \306\307 \203 r\fq\210\212 b\210\310 \210*\311 \203( \310 \210p`\202? \306\211 9\203? \312N\203? \313\314\315 \204q :\203q @@@A \316\"\203h \212b\210\310 \210)A*\202? \211+\207" [inhibit-quit this-command deactivate-mark command flyspell-pre-buffer flyspell-pre-point 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-buffer flyspell-pre-pre-point flyspell-word-cache-end flyspell-word-cache-result flyspell-changes stop start flyspell-previous-command] 4) ((quit (byte-code "\301\302\303!\207" [quit-flag t eval (ignore nil)] 2)))] 3 (#$ . 25779) nil]) (defalias 'flyspell-notify-misspell #[(word poss) ";\203 \202 \203 \305AA@\306\"\202 AA@ \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 &optional ignore-case) "\212\306\307\306\n\204> \310 \f\307#\211\203> \311 \211 :\2037 \n\203+ @\227 \227\230\202/ @ \230\2037 \202: b\210)\202 \n,\207" [p inhibit-point-motion-hooks r word bound lw nil t search-backward flyspell-get-word ignore-case] 5]) (defalias 'flyspell-word-search-forward #[(word bound) "\212\306\307\306\n\2041 \310 \f\307#\211\2031 \311 \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]) #@331 Spell check a word. If the optional argument FOLLOWING, or, when called interactively `ispell-following-word', is non-nil, checks the following (rather than preceding) word when the cursor is not over a word. If optional argument KNOWN-MISSPELLING is non nil considers word a misspelling and skips redundant spell-checking step. (defalias 'flyspell-word #[(&optional following known-misspelling) "\306 \210\212\307 \210`\310 !\311\211 \311\211 )\311 *\n\311=\204, \312+!\2030 + \2040 \313\202\nA@\nAA@\n@),\314=\203R eV\203\223 Sf\315>\204\223 -\203\223 \316\317\215\204\223 \212 b\210\320 \f Z\321\311x[#\211 .eY\205z \322).\313#\211 /\205\205 / U?+\203\223 \323 \f\324#\210\311\2020 =\203\256 1\f=\203\256 2)\230\203\256 3\202,\314=\203\316 \325\n!\203\316 \326 !\210\f V\203\312 \326\fS!\210\313\202 0\f1)24\204\327\330!\210\327\331)\332Q!\210\3335\311\"\210\3345!\210*@\335\230\203\357 *A\211*\204\336**:\203 \337*@!\202 )\340\311\211F \313=\203:\3133\326 !\210\f V\2036\326\fS!\210\313\202 ;\203Z6\203Z\3133\326 !\210\f V\203V\326\fS!\210\313\202 \204t\3133\326 !\210\f V\203p\326\fS!\210\313\2027\341W\203\225\212 b\210\322)e\")\204\274\212\fb\210\342)d\")\204\2747\341V\203\327\212 b\210\322) 7Z\")\204\274\212\fb\210\342)\f7\\\")\203\327\31136\203\315\343 \f #\210\202\323\344\345)\"\210\311\202\31136\203\376\323 :\203\366 A@\250\203\366\346 A@\347#\202\367 \f #\210\202\350) \"\210\311 8b\2109\203\31198).\207" [cursor-location following flyspell-word start end poss ispell-set-spellchecker-params flyspell-accept-buffer-local-defs flyspell-get-word nil fboundp t tex (125 92) exception (byte-code "\206 \306 \211 \2059 @\211@\203# \n;\2031 \307\f@\n\"\2031 \227\fA\235\2031 \310\311\312\"\210 A\211\204 \306+\207" [ispell-local-dictionary ispell-dictionary dict flyspell-mark-duplications-exceptions except --dolist-tail-- nil string-match throw exception t word] 4) - " \n\f" flyspell-word-search-backward flyspell-highlight-incorrect-region doublon flyspell-tex-command-p flyspell-unhighlight-at ispell-send-string "%\n" "^" "\n" set-process-query-on-exit-flag accept-process-output "" (*) ispell-parse-output 1 0 flyspell-word-search-forward flyspell-highlight-duplicate-region message "duplicate `%s'" + -1 flyspell-notify-misspell 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 known-misspelling ispell-process flyspell-highlight-flag flyspell-duplicate-distance res ispell-quit] 6 (#$ . 27491) (list ispell-following-word)]) (defalias 'flyspell-math-tex-command-p #[nil "\301\302!\205 ?\205 \303\304\305\217\207" [flyspell-check-tex-math-command fboundp texmathp nil (texmathp) ((error))] 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 (#$ . 30397)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias flyspell-get-casechars ispell-get-casechars flyspell-get-not-casechars ispell-get-not-casechars] 3) #@332 Return the word for spell-checking according to Ispell syntax. Optional argument FOLLOWING non-nil means to get the following (rather than preceding) word when the cursor is not over a word. Optional second argument EXTRA-OTHERCHARS is a regexp of characters that may be included as part of a word (see `ispell-dictionary-alist'). (defalias 'flyspell-get-word #[(&optional following 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\304 o\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 \"\211 E.\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 (#$ . 30875)]) #@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 (#$ . 32211)]) #@39 The external Flyspell Ispell process. (defvar flyspell-external-ispell-process nil (#$ . 32686)) (defvar flyspell-external-ispell-buffer nil) (defvar flyspell-large-region-buffer nil) (defvar flyspell-large-region-beg (point-min)) (defvar flyspell-large-region-end (point-max)) #@280 Mark words from a buffer listing incorrect words in order of appearance. The list of incorrect words should be in `flyspell-external-ispell-buffer'. (We finish by killing that buffer and setting the variable to nil.) The buffer to mark them in is `flyspell-large-region-buffer'. (defalias 'flyspell-external-point-words #[nil "\306\307 \306 r q\210eb\210\310\311\306\312#\203\273 \313\314!` !\2032 \315\316\317`!d\245\320_ #\210r\"q\210\nb\210\312 ##\203\267 \321 $\312#\203\243 \212\322u\210\323 )\211 %@\211 &G ' G ('(U\204\225 \324& \"\235\204\225 '(W\204\225 )\204\237 \212%A@Sb\210\325\326!\205\221 \312)\203\237 \306#\327\306\312\"\210`,\202= \330\304\331 \332\333 !R\"\210\306\211#\204B ,\202 !\203\304 \315\334!\210)\f\306 \211 *\203\343 *@ \315\335 \"\210*A\211*\204\317 *\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 --dolist-tail--] 8 (#$ . 32971)]) (defalias 'flyspell-process-localwords #[(misspellings-buffer) "\306\307 \212eb\210\310\f\306\311#\203D \312 \306 \313\314\311#\203@ \315\316\224\316\225\"\316 GW\203 \317 \"\320\232\203 B\202 *\202 )rq\210\212 \306 \211 \205\201 @eb\210\321\322Q \313\306\311#\203v \320\224\320\225|\210\202d )A\211\204U \306.\207" [ispell-buffer-session-localwords ispell-casechars case-fold-search localwords ispell-words-keyword string nil ispell-get-casechars search-forward t point-at-eol re-search-forward " *\\([^ ]+\\)" buffer-substring-no-properties 1 string-match 0 "^" "\n" end misspellings-buffer word --dolist-tail-- 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 (#$ . 35115)]) (defalias 'flyspell-large-region #[(beg end) "p\306\307!\211\f()\310 \210 q\210\311 \210*\203\" \312\313!\210q\210\314 \210+\206/ ,-.\2068 /0\315 \316 \317 1 2 -\203[ \320\235\204[ \321\320-D\"0\203l \321\322\3230!D\"\324 \211 3\203\207 \325\3263\"\203\207 \327\330\331\332\3333\"P\"\210)\3214\"5\203\263 \3216\203\250 5\3342!\226D\202\260 5\3342!PC\"\3352BC 7\336\337\f(8\317 \3179\203\315 \340\202\316 \341& 1)1\333=\203\366 \342 !\210rq\210\343\f(\"\210\344\f(\"\210)\345 \202\371 \346\347!-\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-set-spellchecker-params ispell-get-ispell-args ispell-get-coding-system nil "-d" append "-p" expand-file-name ispell-get-extended-character-mode string-match "[^~]+$" add-to-list args "-T" match-string 0 symbol-name "\\.*" apply ispell-call-process-region "list" "-l" flyspell-process-localwords flyspell-delete-region-overlays flyspell-check-region-doublons flyspell-external-point-words error "Can't check region" end flyspell-large-region-end flyspell-issue-message-flag ispell-local-dictionary ispell-dictionary ispell-current-dictionary ispell-local-pdict ispell-personal-dictionary ispell-current-personal-dictionary c encoding extended-char-mode ispell-extra-args ispell-encoding8-command ispell-really-hunspell process-coding-system-alist ispell-program-name ispell-really-aspell] 11]) #@36 Flyspell text between BEG and END. (defalias 'flyspell-region #[(beg end) "\304 \210 U?\2050 \212 V\203 \n) \203+ Z V\203+ \303 \"\202/ \305 \")\207" [beg end old flyspell-large-region ispell-set-spellchecker-params flyspell-small-region] 3 (#$ . 37019) "r"]) #@24 Flyspell whole buffer. (defalias 'flyspell-buffer #[nil "\300ed\"\207" [flyspell-region] 3 (#$ . 37297) nil]) (defvar flyspell-old-buffer-error nil) (defvar flyspell-old-pos-error nil) #@115 Go to the next previously detected error. In general FLYSPELL-GOTO-NEXT-ERROR must be used after FLYSPELL-BUFFER. (defalias 'flyspell-goto-next-error #[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 (#$ . 37489) nil]) #@50 Return true if 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 (#$ . 38051)]) #@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 (#$ . 38232)]) #@43 Delete all the overlays used by flyspell. (defalias 'flyspell-delete-all-overlays #[nil "\300ed\"\207" [flyspell-delete-region-overlays] 3 (#$ . 38429)]) #@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 (#$ . 38589)]) #@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 (#$ . 38913)]) #@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 (#$ . 39373)]) #@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 (#$ . 40134)]) #@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 (#$ . 40999)]) (defvar flyspell-auto-correct-pos nil) (defvar flyspell-auto-correct-region nil) (defvar flyspell-auto-correct-ring nil) (defvar flyspell-auto-correct-word nil) (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [make-variable-buffer-local flyspell-auto-correct-pos flyspell-auto-correct-region flyspell-auto-correct-ring flyspell-auto-correct-word] 2) #@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 \306W\203 \306\202 \307\211 \310\311\215\203. \212 b\210\312 \210\307\313 )\2021 \314\315!-\207" [arg ovs ov pos pos1 flyspell-word-cache-word 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 flyspell-word error "No word to correct before point"] 5 (#$ . 41952) 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 \\|\210 A\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\202\317 \211 :\205\201 A@ AA@ @\320\211 $ % & \"\321\322!\210\321\323 \324Q!\210\325'!\210$@\326\230\203\242 $A\211$\204\273 \327$$:\203\310 \330$@!%%\331=\204{%;\204{%\204\341 \332\333!\210\202{(\203\361 \334%AA@\335\"\202\366 %AA@ )\320):\203z)@\211 *\211 +%@\232\204y\f+GB)\211 ,A:\203),A\211,\202,%@)B\241\210)) \307\f!\210\f&|\210#+!\210!\203h\310\311 \"\203a\312\311 +#\210\202h\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 (#$ . 43440) nil]) #@59 Holds the start of the first incorrect word before point. (defvar flyspell-auto-correct-previous-pos nil (#$ . 45029)) #@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 (#$ . 45155) nil]) #@118 Auto correct the first misspelled word that occurs before point. But don't look beyond what's visible on the screen. (defalias 'flyspell-auto-correct-previous-word #[(position) "\306 \307 \212\214 }\210\310`!\210\311\312\313\314\211$\210\n\204K \315\316e \"\317 \f\203B \320\f!\2039 \321\322\f!\323\"\324=\204B \242 \243\202$ \f\203J \322\f!*\n\205f \212\nb\210\314 \n\247\203^ \nb\210\325 \210)`\211),\207" [bot top flyspell-auto-correct-previous-pos position new-overlay overlay-list window-start window-end overlay-recenter add-hook pre-command-hook flyspell-auto-correct-previous-hook t nil overlays-in dummy-value flyspell-overlay-p get-char-property overlay-start face flyspell-incorrect flyspell-auto-correct-word ispell-following-word] 5 (#$ . 45565) "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 (#$ . 46348) "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\204 ``\312 :\205\202 A@ AA@ @\313\211 \314\315!\210\314\316 \317Q!\210\320!\210 @\321\230\2038 A\211\204M \322 :\203W \323 @!\f\324=\204~ \f;\204~ \f\204m \307\325!\210\202~ \326\327\f #\f \n &\210\330\324!-*\207" [opoint word cursor-location ispell-filter poss end 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 start ispell-process event] 9 (#$ . 46624) 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=\203^ \310\320\n\312Q!\210\321\322\n\"\210 \204F \323 \314 !\210\f\204Q \fC b\210\316=\205\261 \324\n!\207\203\255 \314 !\210d:\204p \202r @\nGZZ \\ @\232\204\245 |\210b\210 !\210 \203\245 \325\n\"\210\326 #+\207 b\210\307\207" [replace save word cursor-location ispell-pdict-modified-p ispell-buffer-local-name ignore nil ispell-send-string "*" "\n" "#\n" flyspell-unhighlight-at (t) buffer session "@" add-to-list ispell-buffer-session-localwords buffer-name ispell-add-per-file-word-list flyspell-define-abbrev flyspell-ajust-cursor-point end start new-word old-max poss flyspell-insert-function flyspell-abbrev-p] 5 (#$ . 47635)]) (defalias 'flyspell-ajust-cursor-point #[(save cursor-location old-max) " Y\203$ d\nZ\\\211eW\203 e\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\307!\210 \2043 \310 \211A@\203 \n\202% \311\n@\312 \313\245\313#\210\310 \211A@\nAATD\n@D* \203A \314\fAA@\315\"\202E \fAA@\211 :\205O \316\317 \" \fAAA@ \320 :\203s \203s \321 @P\322D\323\324E\202t \325 :\203\207 \326 \327B\"\202\211 ) \330 B \331 \332\333!\"\206\237 ## D\"@.\207" [window-system event mouse-pos flyspell-sort-corrections poss corrects error "This command requires pop-up dialogs" 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]" cor-menu affix show-affix-info base-menu menu word ispell-local-dictionary ispell-dictionary] 7 (#$ . 48721)]) #@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 (#$ . 49682)]) #@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\311\f\312#b\210\313\312!\210)\314\315\316\"\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 (#$ . 50672)]) #@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 (#$ . 51457)]) (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)