Mercurial > emacs

changeset 68195:bb2dfb332355

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ispell-kill-ispell): Run new hook ispell-kill-ispell-hook.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 15 Jan 2006 05:42:35 +0000
parents f4bca1157746
children 9b4c8f5efab7
files lisp/ChangeLog lisp/textmodes/ispell.el
diffstat 2 files changed, 11 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Sun Jan 15 03:15:25 2006 +0000
+++ b/lisp/ChangeLog	Sun Jan 15 05:42:35 2006 +0000
@@ -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>
 
--- a/lisp/textmodes/ispell.el	Sun Jan 15 03:15:25 2006 +0000
+++ b/lisp/textmodes/ispell.el	Sun Jan 15 05:42:35 2006 +0000
@@ -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 @@
   "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