diff options
| author | Stefan Monnier | 2006-01-15 05:42:35 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2006-01-15 05:42:35 +0000 |
| commit | 2834b9b3b81bd5f3dbbf97a18aac519d3bf7534c (patch) | |
| tree | da657a21e26b84162bcc7a09a6e0720ad8761d51 | |
| parent | 025fddd4ed8413e1678a3e14935c462afd1eb668 (diff) | |
| download | emacs-2834b9b3b81bd5f3dbbf97a18aac519d3bf7534c.tar.gz emacs-2834b9b3b81bd5f3dbbf97a18aac519d3bf7534c.zip | |
(ispell-kill-ispell): Run new hook ispell-kill-ispell-hook.
| -rw-r--r-- | lisp/ChangeLog | 9 | ||||
| -rw-r--r-- | 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 @@ | |||
| 1 | 2006-01-15 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * textmodes/ispell.el (ispell-kill-ispell): Run new hook | ||
| 4 | ispell-kill-ispell-hook. | ||
| 5 | |||
| 1 | 2006-01-14 Luc Teirlinck <teirllm@auburn.edu> | 6 | 2006-01-14 Luc Teirlinck <teirllm@auburn.edu> |
| 2 | 7 | ||
| 3 | * cus-edit.el (Custom-set, Custom-save, Custom-reset-current) | 8 | * cus-edit.el (Custom-set, Custom-save, Custom-reset-current) |
| @@ -14,8 +19,8 @@ | |||
| 14 | * wid-edit.el (widget-field-end): If the overlay is no longer | 19 | * wid-edit.el (widget-field-end): If the overlay is no longer |
| 15 | associated with a buffer, behave as if the overlay didn't exist. | 20 | associated with a buffer, behave as if the overlay didn't exist. |
| 16 | 21 | ||
| 17 | * cus-edit.el (custom-add-see-also, custom-add-parent-links): Make | 22 | * cus-edit.el (custom-add-see-also, custom-add-parent-links): |
| 18 | sure the links use the `custom-link' face. | 23 | Make sure the links use the `custom-link' face. |
| 19 | 24 | ||
| 20 | 2006-01-13 Stefan Monnier <monnier@iro.umontreal.ca> | 25 | 2006-01-13 Stefan Monnier <monnier@iro.umontreal.ca> |
| 21 | 26 | ||
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 @@ | |||
| 1 | ;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2 | 1 | ;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2 |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, | 3 | ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, |
| 4 | ;; 2004, 2005 Free Software Foundation, Inc. | 4 | ;; 2004, 2005, 2006 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Ken Stevens <k.stevens@ieee.org> | 6 | ;; Author: Ken Stevens <k.stevens@ieee.org> |
| 7 | ;; Maintainer: Ken Stevens <k.stevens@ieee.org> | 7 | ;; Maintainer: Ken Stevens <k.stevens@ieee.org> |
| @@ -2558,6 +2558,9 @@ Keeps argument list for future ispell invocations for no async support." | |||
| 2558 | "Kill current Ispell process (so that you may start a fresh one). | 2558 | "Kill current Ispell process (so that you may start a fresh one). |
| 2559 | With NO-ERROR, just return non-nil if there was no Ispell running." | 2559 | With NO-ERROR, just return non-nil if there was no Ispell running." |
| 2560 | (interactive) | 2560 | (interactive) |
| 2561 | ;; This hook is typically used by flyspell to flush some variables used | ||
| 2562 | ;; to optimize the common cases. | ||
| 2563 | (run-hooks 'ispell-kill-ispell-hook) | ||
| 2561 | (if (not (and ispell-process | 2564 | (if (not (and ispell-process |
| 2562 | (eq (ispell-process-status) 'run))) | 2565 | (eq (ispell-process-status) 'run))) |
| 2563 | (or no-error | 2566 | (or no-error |