880 |
(defvar ispell-have-aspell-dictionaries nil |
(defvar ispell-have-aspell-dictionaries nil |
881 |
"Non-nil if we have queried Aspell for dictionaries at least once.") |
"Non-nil if we have queried Aspell for dictionaries at least once.") |
882 |
|
|
883 |
|
(defun ispell-maybe-find-aspell-dictionaries () |
884 |
|
"Find Aspell's dictionaries, unless already done." |
885 |
|
(when (and (not ispell-have-aspell-dictionaries) |
886 |
|
(condition-case () |
887 |
|
(progn (ispell-check-version) t) |
888 |
|
(error nil)) |
889 |
|
ispell-really-aspell |
890 |
|
ispell-aspell-supports-utf8) |
891 |
|
(ispell-find-aspell-dictionaries))) |
892 |
|
|
893 |
(defun ispell-find-aspell-dictionaries () |
(defun ispell-find-aspell-dictionaries () |
894 |
"Find Aspell's dictionaries, and record in `ispell-dictionary-alist'." |
"Find Aspell's dictionaries, and record in `ispell-dictionary-alist'." |
895 |
(interactive) |
(interactive) |
986 |
"Returns a list of valid dictionaries. |
"Returns a list of valid dictionaries. |
987 |
The variable `ispell-library-directory' defines the library location." |
The variable `ispell-library-directory' defines the library location." |
988 |
;; If Ispell is really Aspell, query it for the dictionary list. |
;; If Ispell is really Aspell, query it for the dictionary list. |
989 |
(when (and (not ispell-have-aspell-dictionaries) |
(ispell-maybe-find-aspell-dictionaries) |
|
(condition-case () |
|
|
(progn (ispell-check-version) t) |
|
|
(error nil)) |
|
|
ispell-really-aspell |
|
|
ispell-aspell-supports-utf8) |
|
|
(ispell-find-aspell-dictionaries)) |
|
990 |
(let ((dicts (append ispell-local-dictionary-alist ispell-dictionary-alist)) |
(let ((dicts (append ispell-local-dictionary-alist ispell-dictionary-alist)) |
991 |
(dict-list (cons "default" nil)) |
(dict-list (cons "default" nil)) |
992 |
name load-dict) |
name load-dict) |
3577 |
|
|
3578 |
(defun ispell-accept-buffer-local-defs () |
(defun ispell-accept-buffer-local-defs () |
3579 |
"Load all buffer-local information, restarting Ispell when necessary." |
"Load all buffer-local information, restarting Ispell when necessary." |
3580 |
|
(ispell-maybe-find-aspell-dictionaries) |
3581 |
(ispell-buffer-local-dict) ; May kill ispell-process. |
(ispell-buffer-local-dict) ; May kill ispell-process. |
3582 |
(ispell-buffer-local-words) ; Will initialize ispell-process. |
(ispell-buffer-local-words) ; Will initialize ispell-process. |
3583 |
(ispell-buffer-local-parsing)) |
(ispell-buffer-local-parsing)) |