mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
the ispell process was repeatedly killed & restarted.
This commit is contained in:
Stefan Monnier 2005-02-03 16:20:22 +00:00
parent a41118cc45
commit ca97010c3a
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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.

5
lisp/textmodes/ispell.el
View file

@ -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))))