diff options
| author | Richard M. Stallman | 2005-02-27 10:36:38 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-02-27 10:36:38 +0000 |
| commit | 8ceb0c6ea944fb3422896fdcbcbaf05fc071e627 (patch) | |
| tree | a484506bf344a67f9fa76fc683fe900d08e963a7 /lisp/textmodes | |
| parent | e342a48a657eae5dfba0dd5882dc935f694769bb (diff) | |
| download | emacs-8ceb0c6ea944fb3422896fdcbcbaf05fc071e627.tar.gz emacs-8ceb0c6ea944fb3422896fdcbcbaf05fc071e627.zip | |
(flyspell-mode-on): Call ispell-change-dictionary only if necessary.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/flyspell.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 01db2d64b27..c224a970e01 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -543,8 +543,9 @@ in your .emacs file. | |||
| 543 | "Turn Flyspell mode on. Do not use this; use `flyspell-mode' instead." | 543 | "Turn Flyspell mode on. Do not use this; use `flyspell-mode' instead." |
| 544 | (setq ispell-highlight-face 'flyspell-incorrect-face) | 544 | (setq ispell-highlight-face 'flyspell-incorrect-face) |
| 545 | ;; local dictionaries setup | 545 | ;; local dictionaries setup |
| 546 | (ispell-change-dictionary | 546 | (or ispell-local-dictionary ispell-dictionary |
| 547 | (or ispell-local-dictionary ispell-dictionary flyspell-default-dictionary)) | 547 | (if flyspell-default-dictionary |
| 548 | (ispell-change-dictionary flyspell-default-dictionary))) | ||
| 548 | ;; we have to force ispell to accept the local definition or | 549 | ;; we have to force ispell to accept the local definition or |
| 549 | ;; otherwise it could be too late, the local dictionary may | 550 | ;; otherwise it could be too late, the local dictionary may |
| 550 | ;; be forgotten! | 551 | ;; be forgotten! |