33 |
;; To enable Flyspell in text representing computer programs, type |
;; To enable Flyspell in text representing computer programs, type |
34 |
;; M-x flyspell-prog-mode. |
;; M-x flyspell-prog-mode. |
35 |
;; In that mode only text inside comments is checked. |
;; In that mode only text inside comments is checked. |
36 |
;; |
;; |
37 |
;; Note: consider setting the variable ispell-parser to `tex' to |
;; Note: consider setting the variable ispell-parser to `tex' to |
38 |
;; avoid TeX command checking; use `(setq ispell-parser 'tex)'. |
;; avoid TeX command checking; use `(setq ispell-parser 'tex)'. |
39 |
;; |
;; |
40 |
;; Some user variables control the behavior of flyspell. They are |
;; Some user variables control the behavior of flyspell. They are |
41 |
;; those defined under the `User variables' comment. |
;; those defined under the `User variables' comment. |
42 |
|
|
201 |
:group 'flyspell |
:group 'flyspell |
202 |
:version "21.1" |
:version "21.1" |
203 |
:type 'boolean) |
:type 'boolean) |
204 |
|
|
205 |
;;;###autoload |
;;;###autoload |
206 |
(defcustom flyspell-mode-line-string " Fly" |
(defcustom flyspell-mode-line-string " Fly" |
207 |
"*String displayed on the modeline when flyspell is active. |
"*String displayed on the modeline when flyspell is active. |
424 |
The default flyspell behavior is to highlight incorrect words. |
The default flyspell behavior is to highlight incorrect words. |
425 |
With no argument, this command toggles Flyspell mode. |
With no argument, this command toggles Flyspell mode. |
426 |
With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive. |
With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive. |
427 |
|
|
428 |
Bindings: |
Bindings: |
429 |
\\[ispell-word]: correct words (using Ispell). |
\\[ispell-word]: correct words (using Ispell). |
430 |
\\[flyspell-auto-correct-word]: automatically correct word. |
\\[flyspell-auto-correct-word]: automatically correct word. |
485 |
;* For remembering buffers running flyspell */ |
;* For remembering buffers running flyspell */ |
486 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
487 |
(defvar flyspell-buffers nil) |
(defvar flyspell-buffers nil) |
488 |
|
|
489 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
490 |
;* flyspell-minibuffer-p ... */ |
;* flyspell-minibuffer-p ... */ |
491 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
558 |
(format "Welcome to flyspell. Use %s or Mouse-2 to correct words." |
(format "Welcome to flyspell. Use %s or Mouse-2 to correct words." |
559 |
(key-description binding)) |
(key-description binding)) |
560 |
"Welcome to flyspell. Use Mouse-2 to correct words.")))) |
"Welcome to flyspell. Use Mouse-2 to correct words.")))) |
561 |
|
|
562 |
;; Use this so that we can still get major mode bindings at a |
;; Use this so that we can still get major mode bindings at a |
563 |
;; misspelled word (unless they're overridden by |
;; misspelled word (unless they're overridden by |
564 |
;; `flyspell-mouse-map'). |
;; `flyspell-mouse-map'). |
797 |
(insert (format " cache-start: %S\n" flyspell-word-cache-start)) |
(insert (format " cache-start: %S\n" flyspell-word-cache-start)) |
798 |
(insert (format " cache-end : %S\n" flyspell-word-cache-end)) |
(insert (format " cache-end : %S\n" flyspell-word-cache-end)) |
799 |
(goto-char (point-max))))) |
(goto-char (point-max))))) |
800 |
|
|
801 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
802 |
;* flyspell-debug-signal-word-checked ... */ |
;* flyspell-debug-signal-word-checked ... */ |
803 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1136 |
(setq flyspell-ispell-casechars-cache ispell-casechars) |
(setq flyspell-ispell-casechars-cache ispell-casechars) |
1137 |
(setq flyspell-casechars-cache ispell-casechars) |
(setq flyspell-casechars-cache ispell-casechars) |
1138 |
flyspell-casechars-cache)))) |
flyspell-casechars-cache)))) |
1139 |
|
|
1140 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1141 |
;* flyspell-get-not-casechars-cache ... */ |
;* flyspell-get-not-casechars-cache ... */ |
1142 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1299 |
;; have to kill the temporary buffer |
;; have to kill the temporary buffer |
1300 |
(kill-buffer flyspell-external-ispell-buffer) |
(kill-buffer flyspell-external-ispell-buffer) |
1301 |
(setq flyspell-external-ispell-buffer nil))) |
(setq flyspell-external-ispell-buffer nil))) |
1302 |
|
|
1303 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1304 |
;* flyspell-large-region ... */ |
;* flyspell-large-region ... */ |
1305 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1463 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1464 |
;* flyspell-properties-at-p ... */ |
;* flyspell-properties-at-p ... */ |
1465 |
;* ------------------------------------------------------------- */ |
;* ------------------------------------------------------------- */ |
1466 |
;* Is there an highlight properties at position pos? */ |
;* Is there a highlight properties at position pos? */ |
1467 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1468 |
(defun flyspell-properties-at-p (pos) |
(defun flyspell-properties-at-p (pos) |
1469 |
"Return t if there is a text property at POS, not counting `local-map'. |
"Return t if there is a text property at POS, not counting `local-map'. |
1495 |
flyspell-overlay-keymap-property-name |
flyspell-overlay-keymap-property-name |
1496 |
flyspell-local-mouse-map)) |
flyspell-local-mouse-map)) |
1497 |
flyspell-overlay)) |
flyspell-overlay)) |
1498 |
|
|
1499 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1500 |
;* flyspell-highlight-incorrect-region ... */ |
;* flyspell-highlight-incorrect-region ... */ |
1501 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1731 |
(if (eq flyspell-emacs 'xemacs) |
(if (eq flyspell-emacs 'xemacs) |
1732 |
(flyspell-correct-word/mouse-keymap event) |
(flyspell-correct-word/mouse-keymap event) |
1733 |
(flyspell-correct-word/local-keymap event))) |
(flyspell-correct-word/local-keymap event))) |
1734 |
|
|
1735 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1736 |
;* flyspell-correct-word/local-keymap ... */ |
;* flyspell-correct-word/local-keymap ... */ |
1737 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1765 |
(let ((flyspell-mode nil)) |
(let ((flyspell-mode nil)) |
1766 |
(if (key-binding (this-command-keys)) |
(if (key-binding (this-command-keys)) |
1767 |
(command-execute (key-binding (this-command-keys)))))))))) |
(command-execute (key-binding (this-command-keys)))))))))) |
1768 |
|
|
1769 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
1770 |
;* flyspell-correct-word/mouse-keymap ... */ |
;* flyspell-correct-word/mouse-keymap ... */ |
1771 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
2092 |
;*---------------------------------------------------------------------*/ |
;*---------------------------------------------------------------------*/ |
2093 |
(defun flyspell-change-abbrev (table old new) |
(defun flyspell-change-abbrev (table old new) |
2094 |
(set (abbrev-symbol old table) new)) |
(set (abbrev-symbol old table) new)) |
2095 |
|
|
2096 |
(provide 'flyspell) |
(provide 'flyspell) |
2097 |
|
|
2098 |
;;; flyspell.el ends here |
;;; flyspell.el ends here |