Mercurial > emacs
comparison lisp/textmodes/flyspell.el @ 68237:aa1b3e649cc8
(ispell-kill-ispell-hook): Add to the hook when
loading the file rather than when turning on flyspell-mode.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Tue, 17 Jan 2006 16:35:52 +0000 |
parents | 979bd3539a58 |
children | e5fac4fecc67 d88caeac70d7 |
comparison
equal
deleted
inserted
replaced
68236:310a829d776f | 68237:aa1b3e649cc8 |
---|---|
529 (setq flyspell-last-buffer nil) | 529 (setq flyspell-last-buffer nil) |
530 (dolist (buf (buffer-list)) | 530 (dolist (buf (buffer-list)) |
531 (with-current-buffer buf | 531 (with-current-buffer buf |
532 (kill-local-variable 'flyspell-word-cache-word)))) | 532 (kill-local-variable 'flyspell-word-cache-word)))) |
533 | 533 |
534 ;; Make sure we flush our caches when needed. Do it here rather than in | |
535 ;; flyspell-mode-on, since flyspell-region may be used without ever turning | |
536 ;; on flyspell-mode. | |
537 (add-hook 'ispell-kill-ispell-hook 'flyspell-kill-ispell-hook) | |
538 | |
534 ;;*---------------------------------------------------------------------*/ | 539 ;;*---------------------------------------------------------------------*/ |
535 ;;* flyspell-mode-on ... */ | 540 ;;* flyspell-mode-on ... */ |
536 ;;*---------------------------------------------------------------------*/ | 541 ;;*---------------------------------------------------------------------*/ |
537 (defun flyspell-mode-on () | 542 (defun flyspell-mode-on () |
538 "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." |
540 (setq ispell-highlight-face 'flyspell-incorrect) | 545 (setq ispell-highlight-face 'flyspell-incorrect) |
541 ;; local dictionaries setup | 546 ;; local dictionaries setup |
542 (or ispell-local-dictionary ispell-dictionary | 547 (or ispell-local-dictionary ispell-dictionary |
543 (if flyspell-default-dictionary | 548 (if flyspell-default-dictionary |
544 (ispell-change-dictionary flyspell-default-dictionary))) | 549 (ispell-change-dictionary flyspell-default-dictionary))) |
545 ;; Make sure we flush our caches when needed. | |
546 (add-hook 'ispell-kill-ispell-hook 'flyspell-kill-ispell-hook) | |
547 ;; we have to force ispell to accept the local definition or | 550 ;; we have to force ispell to accept the local definition or |
548 ;; otherwise it could be too late, the local dictionary may | 551 ;; otherwise it could be too late, the local dictionary may |
549 ;; be forgotten! | 552 ;; be forgotten! |
550 ;; Pass the `force' argument for the case where flyspell was active already | 553 ;; Pass the `force' argument for the case where flyspell was active already |
551 ;; but the buffer's local-defs have been edited. | 554 ;; but the buffer's local-defs have been edited. |