(ispell-kill-ispell): Run new hook ispell-kill-ispell-hook.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91b2208a2637f0e75c6ad05f67946d86e6d93da5..8850bc3ea97707d685040effafe1b248d5ddf9c5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-15  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * textmodes/ispell.el (ispell-kill-ispell): Run new hook
+       ispell-kill-ispell-hook.
+
 2006-01-14  Luc Teirlinck  <teirllm@auburn.edu>
 
        * cus-edit.el (Custom-set, Custom-save, Custom-reset-current)
@@ -14,8 +19,8 @@
        * wid-edit.el (widget-field-end): If the overlay is no longer
        associated with a buffer, behave as if the overlay didn't exist.
 
-       * cus-edit.el (custom-add-see-also, custom-add-parent-links): Make
-       sure the links use the `custom-link' face.
+       * cus-edit.el (custom-add-see-also, custom-add-parent-links):
+       Make sure the links use the `custom-link' face.
 
 2006-01-13  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 5f3691842ba3720eb335c03fc77979f9110a059e..c3e74043c0d482c83431ea526753448f68aee549 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1,7 +1,7 @@
 ;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2
 
 ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003,
-;;   2004, 2005 Free Software Foundation, Inc.
+;;   2004, 2005, 2006 Free Software Foundation, Inc.
 
 ;; Author:           Ken Stevens <k.stevens@ieee.org>
 ;; Maintainer:       Ken Stevens <k.stevens@ieee.org>
@@ -2558,6 +2558,9 @@ Keeps argument list for future ispell invocations for no async support."
   "Kill current Ispell process (so that you may start a fresh one).
 With NO-ERROR, just return non-nil if there was no Ispell running."
   (interactive)
+  ;; This hook is typically used by flyspell to flush some variables used
+  ;; to optimize the common cases.
+  (run-hooks 'ispell-kill-ispell-hook)
   (if (not (and ispell-process
                (eq (ispell-process-status) 'run)))
       (or no-error