(ispell-internal-change-dictionary): Fix problem in recent changes, where

the ispell process was repeatedly killed & restarted.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 708a20b1403f86604dee6232399fb49a0fb2b45b..2cf391c48075f27f77b420b7c9f53360032e518e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,8 @@
-2005-02-03  Stefan  <monnier@iro.umontreal.ca>
+2005-02-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * 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 c403422801f9f06dbe7b7b330fae2eeb0e287e5c..d5171125ae8298be6f58031518a06130dbbbe7f3 100644 (file)
--- 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 <k.stevens@ieee.org>
 ;; Maintainer:       Ken Stevens <k.stevens@ieee.org>
@@ -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))))