719 |
|
|
720 |
(defvar ispell-really-aspell nil) ; Non-nil if aspell extensions should be used |
(defvar ispell-really-aspell nil) ; Non-nil if aspell extensions should be used |
721 |
|
|
722 |
|
(defvar ispell-aspell-supports-utf8 nil |
723 |
|
"Non-nil means to try to automatically find aspell dictionaries. |
724 |
|
This is set to t in ispell-check-version for aspell >= 0.60. |
725 |
|
|
726 |
|
Earlier aspell versions do not consistently support UTF-8. Handling |
727 |
|
this would require some extra guessing in `ispell-aspell-find-dictionary'.") |
728 |
|
|
729 |
|
|
730 |
|
|
820 |
(goto-char (point-min)) |
(goto-char (point-min)) |
821 |
(let (case-fold-search) |
(let (case-fold-search) |
822 |
(setq ispell-really-aspell |
(setq ispell-really-aspell |
823 |
(and (search-forward-regexp "(but really Aspell \\(.*\\))" nil t) |
(and (search-forward-regexp |
824 |
(if (version< (match-string 1) "0.60") |
"(but really Aspell \\(.*\\))" nil t) |
825 |
(error "aspell version 0.60 or greater is required") |
(progn |
826 |
|
(setq ispell-aspell-supports-utf8 |
827 |
|
(not (version< (match-string 1) "0.60"))) |
828 |
t))))) |
t))))) |
829 |
(kill-buffer (current-buffer))) |
(kill-buffer (current-buffer))) |
830 |
result)) |
result)) |
980 |
(condition-case () |
(condition-case () |
981 |
(progn (ispell-check-version) t) |
(progn (ispell-check-version) t) |
982 |
(error nil)) |
(error nil)) |
983 |
ispell-really-aspell) |
ispell-really-aspell |
984 |
|
ispell-aspell-supports-utf8) |
985 |
(ispell-find-aspell-dictionaries)) |
(ispell-find-aspell-dictionaries)) |
986 |
(let ((dicts (append ispell-local-dictionary-alist ispell-dictionary-alist)) |
(let ((dicts (append ispell-local-dictionary-alist ispell-dictionary-alist)) |
987 |
(dict-list (cons "default" nil)) |
(dict-list (cons "default" nil)) |