/[emacs]/emacs/lisp/textmodes/ispell.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/ispell.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.174 by eliz, Sat Sep 10 15:08:03 2005 UTC revision 1.175 by eliz, Sat Sep 17 11:35:13 2005 UTC
# Line 719  LANGUAGE.aff file \(e.g., english.aff\). Line 719  LANGUAGE.aff file \(e.g., english.aff\).
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    
# Line 814  Otherwise returns the library directory Line 820  Otherwise returns the library directory
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))
# Line 972  The variable `ispell-library-directory' Line 980  The variable `ispell-library-directory'
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))

Legend:
Removed from v.1.174  
changed lines
  Added in v.1.175

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26