Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 59907:0bdb128b5dcf
(ispell-internal-change-dictionary): Fix problem in recent changes, where
the ispell process was repeatedly killed & restarted.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 03 Feb 2005 16:19:19 +0000 |
| parents | 280d6b93af80 |
| children | a8e43a2ba867 72cf6261961e |
comparison
equal
deleted
inserted
replaced
| 59906:9c28fead9bf2 | 59907:0bdb128b5dcf |
|---|---|
| 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 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2005 |
| 4 ;; Free Software Foundation, Inc. | |
| 4 | 5 |
| 5 ;; Author: Ken Stevens <k.stevens@ieee.org> | 6 ;; Author: Ken Stevens <k.stevens@ieee.org> |
| 6 ;; Maintainer: Ken Stevens <k.stevens@ieee.org> | 7 ;; Maintainer: Ken Stevens <k.stevens@ieee.org> |
| 7 ;; Stevens Mod Date: Mon Jan 7 12:32:44 PST 2003 | 8 ;; Stevens Mod Date: Mon Jan 7 12:32:44 PST 2003 |
| 8 ;; Stevens Revision: 3.6 | 9 ;; Stevens Revision: 3.6 |
| 2447 | 2448 |
| 2448 (defun ispell-internal-change-dictionary () | 2449 (defun ispell-internal-change-dictionary () |
| 2449 "Update the dictionary actually used by Ispell. | 2450 "Update the dictionary actually used by Ispell. |
| 2450 This may kill the Ispell process; if so, | 2451 This may kill the Ispell process; if so, |
| 2451 a new one will be started when needed." | 2452 a new one will be started when needed." |
| 2452 (let ((dict (or ispell-local-dictionary ispell-dictionary "default"))) | 2453 (let ((dict (or ispell-local-dictionary ispell-dictionary))) |
| 2453 (unless (equal ispell-current-dictionary dict) | 2454 (unless (equal ispell-current-dictionary dict) |
| 2454 (setq ispell-current-dictionary dict) | 2455 (setq ispell-current-dictionary dict) |
| 2455 (ispell-kill-ispell t)))) | 2456 (ispell-kill-ispell t)))) |
| 2456 | 2457 |
| 2457 | 2458 |