/[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.176 by deego, Sun Sep 18 12:28:29 2005 UTC revision 1.177 by eliz, Sat Sep 24 10:45:11 2005 UTC
# Line 880  and added as a submenu of the \"Edit\" m Line 880  and added as a submenu of the \"Edit\" m
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)
# Line 976  Assumes that value contains no whitespac Line 986  Assumes that value contains no whitespac
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)
# Line 3573  You can bind this to the key C-c i in GN Line 3577  You can bind this to the key C-c i in GN
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))

Legend:
Removed from v.1.176  
changed lines
  Added in v.1.177

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