# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1107447559 0
# Node ID 0bdb128b5dcf7885061a7e4f5a7942c2af7c32ec
# Parent  9c28fead9bf2696fa970d5251bda6aad44697832
(ispell-internal-change-dictionary): Fix problem in recent changes, where
the ispell process was repeatedly killed & restarted.

diff -r 9c28fead9bf2 -r 0bdb128b5dcf lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Thu Feb 03 16:06:34 2005 +0000
+++ b/lisp/textmodes/ispell.el	Thu Feb 03 16:19:19 2005 +0000
@@ -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 @@
   "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))))