diff options
| author | Stefan Monnier <[email protected]> | 2005-02-03 16:20:22 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2005-02-03 16:20:22 +0000 |
| commit | ca97010c3a44c61515e59340ebf062b3dce6ff9b (patch) | |
| tree | 52d633ab8d05499d01366a4865ce889f82f6606e /lisp | |
| parent | a41118cc4571147ce0d4ff80e9d088e6cf9fecd6 (diff) | |
(ispell-internal-change-dictionary): Fix problem in recent changes, where
the ispell process was repeatedly killed & restarted.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 5 |
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 708a20b140..2cf391c480 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,4 +1,8 @@ -2005-02-03 Stefan <[email protected]> +2005-02-03 Stefan Monnier <[email protected]> + + * textmodes/ispell.el (ispell-internal-change-dictionary): Fix problem + in recent changes, where the ispell process was repeatedly + killed & restarted. * international/mule-cmds.el (set-locale-environment): Set file-name coding system to utf-8 on Darwin systems. diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index c403422801..d5171125ae 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1,6 +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 Free Software Foundation, Inc. +;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2005 +;; Free Software Foundation, Inc. ;; Author: Ken Stevens <[email protected]> ;; Maintainer: Ken Stevens <[email protected]> @@ -2449,7 +2450,7 @@ With prefix argument, set the default dictionary." "Update the dictionary actually used by Ispell. This may kill the Ispell process; if so, a new one will be started when needed." - (let ((dict (or ispell-local-dictionary ispell-dictionary "default"))) + (let ((dict (or ispell-local-dictionary ispell-dictionary))) (unless (equal ispell-current-dictionary dict) (setq ispell-current-dictionary dict) (ispell-kill-ispell t)))) |