1 |
;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2 |
;;; ispell.el --- interface to International Ispell Versions 3.1 and 3.2 |
2 |
|
|
3 |
;; 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 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Ken Stevens <k.stevens@ieee.org> |
;; Author: Ken Stevens <k.stevens@ieee.org> |
7 |
;; Maintainer: Ken Stevens <k.stevens@ieee.org> |
;; Maintainer: Ken Stevens <k.stevens@ieee.org> |
2450 |
"Update the dictionary actually used by Ispell. |
"Update the dictionary actually used by Ispell. |
2451 |
This may kill the Ispell process; if so, |
This may kill the Ispell process; if so, |
2452 |
a new one will be started when needed." |
a new one will be started when needed." |
2453 |
(let ((dict (or ispell-local-dictionary ispell-dictionary "default"))) |
(let ((dict (or ispell-local-dictionary ispell-dictionary))) |
2454 |
(unless (equal ispell-current-dictionary dict) |
(unless (equal ispell-current-dictionary dict) |
2455 |
(setq ispell-current-dictionary dict) |
(setq ispell-current-dictionary dict) |
2456 |
(ispell-kill-ispell t)))) |
(ispell-kill-ispell t)))) |