Mercurial > emacs
comparison lisp/textmodes/ispell.el @ 75287:a884e6b92a3e
(ispell-change-dictionary): Ensure that
aspell dictionaries are initialized when called non-interactively.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Fri, 19 Jan 2007 17:22:13 +0000 |
| parents | 140803c0eff3 |
| children | e3694f1cb928 |
comparison
equal
deleted
inserted
replaced
| 75286:2eb7060c5458 | 75287:a884e6b92a3e |
|---|---|
| 2605 "Use new dictionary (RET for current, SPC to complete): " | 2605 "Use new dictionary (RET for current, SPC to complete): " |
| 2606 (and (fboundp 'ispell-valid-dictionary-list) | 2606 (and (fboundp 'ispell-valid-dictionary-list) |
| 2607 (mapcar 'list (ispell-valid-dictionary-list))) | 2607 (mapcar 'list (ispell-valid-dictionary-list))) |
| 2608 nil t) | 2608 nil t) |
| 2609 current-prefix-arg)) | 2609 current-prefix-arg)) |
| 2610 (ispell-maybe-find-aspell-dictionaries) | |
| 2610 (unless arg (ispell-buffer-local-dict 'no-reload)) | 2611 (unless arg (ispell-buffer-local-dict 'no-reload)) |
| 2611 (if (equal dict "default") (setq dict nil)) | 2612 (if (equal dict "default") (setq dict nil)) |
| 2612 ;; This relies on completing-read's bug of returning "" for no match | 2613 ;; This relies on completing-read's bug of returning "" for no match |
| 2613 (cond ((equal dict "") | 2614 (cond ((equal dict "") |
| 2614 (ispell-internal-change-dictionary) | 2615 (ispell-internal-change-dictionary) |