Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 78685:81b279307e4b
(flyspell-mode): Catch errors in flyspell-mode-on.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 27 Aug 2007 16:25:49 +0000 |
| parents | 80e300a489d6 |
| children | dc100f64b2b7 5039706521c9 |
comparison
equal
deleted
inserted
replaced
| 78684:68b1f44209a9 | 78685:81b279307e4b |
|---|---|
| 483 \\[flyspell-buffer] checks the whole buffer." | 483 \\[flyspell-buffer] checks the whole buffer." |
| 484 :lighter flyspell-mode-line-string | 484 :lighter flyspell-mode-line-string |
| 485 :keymap flyspell-mode-map | 485 :keymap flyspell-mode-map |
| 486 :group 'flyspell | 486 :group 'flyspell |
| 487 (if flyspell-mode | 487 (if flyspell-mode |
| 488 (flyspell-mode-on) | 488 (condition-case () |
| 489 (flyspell-mode-on) | |
| 490 (error (message "Enabling Flyspell mode gave an error") | |
| 491 (flyspell-mode -1))) | |
| 489 (flyspell-mode-off))) | 492 (flyspell-mode-off))) |
| 490 | 493 |
| 491 ;;;###autoload | 494 ;;;###autoload |
| 492 (defun turn-on-flyspell () | 495 (defun turn-on-flyspell () |
| 493 "Unconditionally turn on Flyspell mode." | 496 "Unconditionally turn on Flyspell mode." |