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