From 2834b9b3b81bd5f3dbbf97a18aac519d3bf7534c Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 15 Jan 2006 05:42:35 +0000 Subject: [PATCH] (ispell-kill-ispell): Run new hook ispell-kill-ispell-hook. --- lisp/ChangeLog | 9 +++++++-- lisp/textmodes/ispell.el | 5 ++++- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 91b2208a263..8850bc3ea97 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-01-15 Stefan Monnier + + * textmodes/ispell.el (ispell-kill-ispell): Run new hook + ispell-kill-ispell-hook. + 2006-01-14 Luc Teirlinck * 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 diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 5f3691842ba..c3e74043c0d 100644 --- 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 ;; Maintainer: Ken Stevens @@ -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 -- 2.39.2