From ef0f5f7e622fa2e569228abc40f0f50eb5bb637f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 15 Jan 2006 05:46:20 +0000 Subject: [PATCH] (flyspell-kill-ispell-hook): New fun. (flyspell-mode-on): Use it. --- lisp/ChangeLog | 3 +++ lisp/textmodes/flyspell.el | 7 +++++++ 2 files changed, 10 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8850bc3ea97..4c009714ce4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2006-01-15 Stefan Monnier + * textmodes/flyspell.el (flyspell-kill-ispell-hook): New fun. + (flyspell-mode-on): Use it. + * textmodes/ispell.el (ispell-kill-ispell): Run new hook ispell-kill-ispell-hook. diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 39d4b1f7b69..665d6c59fd7 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -525,6 +525,11 @@ in your .emacs file. (member (or ispell-local-dictionary ispell-dictionary) flyspell-dictionaries-that-consider-dash-as-word-delimiter))))) +(defun flyspell-kill-ispell-hook () + (setq flyspell-last-buffer nil) + (dolist (buf (buffer-list)) + (kill-local-variable 'flyspell-word-cache-word))) + ;;*---------------------------------------------------------------------*/ ;;* flyspell-mode-on ... */ ;;*---------------------------------------------------------------------*/ @@ -536,6 +541,8 @@ in your .emacs file. (or ispell-local-dictionary ispell-dictionary (if flyspell-default-dictionary (ispell-change-dictionary flyspell-default-dictionary))) + ;; Make sure we flush our caches when needed. + (add-hook 'ispell-kill-ispell-hook 'flyspell-kill-ispell-hook) ;; we have to force ispell to accept the local definition or ;; otherwise it could be too late, the local dictionary may ;; be forgotten! -- 2.39.2