Value of `ispell-dictionary-alist' reset by `org-agenda-list'

Value of `ispell-dictionary-alist' reset by `org-agenda-list'

[Sébastien Vauban]

Hello,

I still don't understand what's going on, but I've managed getting closer to a
long experienced problem in my Emacs: while I set the value of
=ispell-dictionary-alist= in the beginning of my =.emacs= file, it is reset
when calling =org-agenda-list=.

Extract of my =.emacs= file:

--8<---------------cut here---------------start------------->8---
        (require 'ispell)  ;; `ispell.el' is already loaded at this stage

        (eval-after-load "ispell"
          '(progn
             (message "Evaluate code AFTER HAVING LOADED `ispell'...")

             ;; default dictionary to use (if `ispell-local-dictionary' is nil)
             (setq ispell-dictionary "en_US")

             ;; extensions and extra switches to pass to the `ispell' program
             (cond
              ((equal ispell-program-name "aspell")
               (setq ispell-really-aspell t)
               (setq ispell-extra-args '("--sug-mode=ultra")))
              ((equal ispell-program-name "ispell")
               (setq ispell-really-aspell nil)))

             ;; redefine the list of installed dictionaries
             (setq ispell-dictionary-alist
                   '(
                     ;; default
                     (nil
                      "[A-Za-z]" "[^A-Za-z]"
                      "[']" nil ("-B") nil iso-8859-1)

                     ;; Yankee English
                     ("en_US"
                      "[A-Za-z]" "[^A-Za-z]"
                      "[']" nil ("-B") nil utf-8)))

             ;; standard French
             (when (or (file-exists-p "/usr/lib/aspell/fr_FR")
                       (file-exists-p "/usr/lib/aspell/francais.alias"))
                                        ; file can be opened for reading
               (add-to-list 'ispell-dictionary-alist
                            '("fr_FR"
                              "[a-zàâäéèêëîïôöùûüçA-ZÀÂÄÉÈÊËÎÏÔÖÙÛÜÇ]" "[^a-zàâäéèêëîïôöùûüçA-ZÀÂÄÉÈÊËÎÏÔÖÙÛÜÇ]"
                              "[-']" t nil "~list" utf-8)
                            'append))))

;; [...]

        (message "Value of `ispell-dictionary-alist' before `org-agenda-list'")
        (edebug-print ispell-dictionary-alist)

        (org-agenda-list)

        (message "Value of `ispell-dictionary-alist' after `org-agenda-list'")
        (edebug-print ispell-dictionary-alist)

        (delete-other-windows)
--8<---------------cut here---------------end--------------->8---

and what I read in the =Messages= buffer:

--8<---------------cut here---------------start------------->8---
Value of `ispell-dictionary-alist' before `org-agenda-list'

((nil "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("en_US" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil utf-8) ("fr_FR" "[a-zàâäéèêëîïôöùûüçA-ZÀÂÄÉÈÊËÎÏÔÖÙÛÜÇ]" "[^a-zàâäéèêëîïôöùûüçA-ZÀÂÄÉÈÊËÎÏÔÖÙÛÜÇ]" "[-']" t nil "~list" utf-8))

OVERVIEW
Fontifying GTD.org... (regexps............................................)
OVERVIEW
Fontifying GTD.org... (regexps.............................................)
OVERVIEW
Fontifying GTD.org... (regexps..............................................)
OVERVIEW
Restoring clock data
Loading /home/sva/.emacs.d/org-clock-save.el...
Loading /home/sva/.emacs.d/org-clock-save.el (source)...done

[... snip ....]

Value of `ispell-dictionary-alist' after `org-agenda-list'

(("svenska" "[A-Za-zåäöéàüèæøçÅÄÖÉÀÜÈÆØÇ]" "[^A-Za-zåäöéàüèæøçÅÄÖÉÀÜÈÆØÇ]" "[']" nil ("-C") "~list" iso-8859-1) ("slovenian" "[A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "[^A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "" nil ("-B" "-d" "slovenian") nil iso-8859-2) ("slovak" "[A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "[^A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "" nil ("-B") nil iso-8859-2) ("russianw" "[ÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÜÛÚÝÞßàáâãäå¸æçèéêëìíîïðñòóôõö÷øùüûúýþÿ]" "[^ÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÜÛÚÝÞßàáâãäå¸æçèéêëìíîïðñòóôõö÷øùüûúýþÿ]" "" nil nil nil windows-1251) ("russian" "[áâ÷çäå³öúéêëìíîïðòóôõæèãþûýøùÿüàñÁÂ×ÇÄÅ£ÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝØÙßÜÀÑ]" "[^áâ÷çäå³öúéêëìíîïðòóôõæèãþûýøùÿüàñÁÂ×ÇÄÅ£ÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝØÙßÜÀÑ]" "" nil nil nil koi8-r) ("portugues" "[a-zA-ZÁÂÉÓàáâéêíóãú]" "[^a-zA-ZÁÂÉÓàáâéêíóãú]" "[']" t ("-C") "~latin1" iso-8859-1) ("polish" "[A-Za-z¡£¦¬¯±³¶¼¿ÆÊÑÓæêñó]" "[^A-Za-z¡£¦¬¯±³¶¼¿ÆÊÑÓæêñó]" "[.]" nil nil nil iso-8859-2) ("norsk7-tex" "[A-Za-z{}\\'^`]" "[^A-Za-z{}\\'^`]" "[\"]" nil ("-d" "norsk") "~plaintex" iso-8859-1) ("norsk" "[A-Za-zÅÆÇÈÉÒÔØåæçèéòôø]" "[^A-Za-zÅÆÇÈÉÒÔØåæçèéòôø]" "[\"]" nil nil "~list" iso-8859-1) ("nederlands" "[A-Za-zÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïñòóôõöùúûü]" "[^A-Za-zÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïñòóôõöùúûü]" "[']" t ("-C") nil iso-8859-1) ("italiano" "[A-ZÀÁÈÉÌÍÒÓÙÚa-zàáèéìíóùú]" "[^A-ZÀÁÈÉÌÍÒÓÙÚa-zàáèéìíóùú]" "[-.]" nil ("-B" "-d" "italian") "~tex" iso-8859-1) ("german8" "[a-zA-ZÄÖÜäößü]" "[^a-zA-ZÄÖÜäößü]" "[']" t ("-C" "-d" "german") "~latin1" iso-8859-1) ("german" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1) ("francais-tex" "[A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü\\]" "[^A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü\\]" "[-'^`\".@]" t nil "~tex" iso-8859-1) ("francais7" "[A-Za-z]" "[^A-Za-z]" "[`'^-]" t nil nil iso-8859-1) ("esperanto-tex" "[A-Za-z^\\]" "[^A-Za-z^\\]" "[-'`\"]" t ("-C" "-d" "esperanto") "~tex" iso-8859-3) ("esperanto" "[A-Za-z¦¬¶¼ÆØÝÞæøýþ]" "[^A-Za-z¦¬¶¼ÆØÝÞæøýþ]" "[-']" t ("-C") "~latin3" iso-8859-3) ("deutsch8" "[a-zA-ZÄÖÜäößü]" "[^a-zA-ZÄÖÜäößü]" "[']" t ("-C" "-d" "deutsch") "~latin1" iso-8859-1) ("deutsch" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1) ("dansk" "[A-ZÆØÅa-zæøå]" "[^A-ZÆØÅa-zæøå]" "[']" nil ("-C") nil iso-8859-1) ("czech" "[A-Za-zÁÉÌÍÓÚÙÝ®©ÈØÏ«Òáéìíóúùý¾¹èøï»ò]" "[^A-Za-zÁÉÌÍÓÚÙÝ®©ÈØÏ«Òáéìíóúùý¾¹èøï»ò]" "" nil ("-B") nil iso-8859-2) ("brasileiro" "[A-ZÁÉÍÓÚÀÈÌÒÙÃÕÇÜÂÊÔa-záéíóúàèìòùãõçüâêô]" "[^A-ZÁÉÍÓÚÀÈÌÒÙÃÕÇÜÂÊÔa-záéíóúàèìòùãõçüâêô]" "[']" nil nil nil iso-8859-1) ("nederlands8" "[A-Za-zÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïñòóôõöùúûü]" "[^A-Za-zÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïñòóôõöùúûü]" "[']" t ("-C" "-d" "dutch") nil iso-8859-1) ("francais-ch" "[A-Za-zÀÂÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü]" "[^A-Za-zÀÂÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü]" "[-']" t ("-d" "fr_CH-60") "~list" iso-8859-1) ("nl" "[[:alpha:]]" "[^[:alpha:]]" "['-]" t ("-d" "nl") nil utf-8) ("fr_FR-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-sml") nil utf-8) ("fr_FR-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-med") nil utf-8) ("fr_FR-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-lrg") nil utf-8) ("fr_FR-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("fr_FR" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR") nil utf-8) ("fr_FR-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("fr_FR-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("fr_CH-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-sml") nil utf-8) ("fr_CH-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-med") nil utf-8) ("fr_CH-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-lrg") nil utf-8) ("fr_CH-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-80") nil utf-8) ("fr_CH-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-60") nil utf-8) ("fr_CH" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH") nil utf-8) ("fr_CH-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-40") nil utf-8) ("fr-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-sml") nil utf-8) ("fr-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-med") nil utf-8) ("fr-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-lrg") nil utf-8) ("fr-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-80") nil utf-8) ("fr" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr") nil utf-8) ("fr-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-60") nil utf-8) ("fr-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-40") nil utf-8) ("es" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("en_US-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US-wo_accents") nil utf-8) ("en_US-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US-w_accents") nil utf-8) ("en_US" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US") nil utf-8) ("en_GB-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-wo_accents") nil utf-8) ("en_GB-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-w_accents") nil utf-8) ("en_GB-ize-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize-wo_accents") nil utf-8) ("en_GB-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize-w_accents") nil utf-8) ("en_GB-ize" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize") nil utf-8) ("en_GB-ise-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise-wo_accents") nil utf-8) ("en_GB-ise-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise-w_accents") nil utf-8) ("en_GB-ise" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise") nil utf-8) ("en_GB" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB") nil utf-8) ("en_CA-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA-wo_accents") nil utf-8) ("en_CA-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA-w_accents") nil utf-8) ("en_CA" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA") nil utf-8) ("en-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-wo_accents") nil utf-8) ("en-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-w_accents") nil utf-8) ("en-variant_2" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_2") nil utf-8) ("en-variant_1" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_1") nil utf-8) ("en-variant_0" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_0") nil utf-8) ("en" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en") nil utf-8) ("american-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US-w_accents") nil utf-8) ("american-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US-wo_accents") nil utf-8) ("american" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US") nil utf-8) ("british-ise-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise-w_accents") nil utf-8) ("british-ise-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise-wo_accents") nil utf-8) ("british-ise" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise") nil utf-8) ("british-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize-w_accents") nil utf-8) ("british-ize-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize-wo_accents") nil utf-8) ("british-ize" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize") nil utf-8) ("british-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-w_accents") nil utf-8) ("british-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-wo_accents") nil utf-8) ("british" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB") nil utf-8) ("canadian-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA-w_accents") nil utf-8) ("canadian-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA-wo_accents") nil utf-8) ("canadian" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA") nil utf-8) ("castellano" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("castellano8" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("dutch" "[[:alpha:]]" "[^[:alpha:]]" "['-]" t ("-d" "nl") nil utf-8) ("english-variant_0" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_0") nil utf-8) ("english-variant_1" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_1") nil utf-8) ("english-variant_2" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_2") nil utf-8) ("english-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-w_accents") nil utf-8) ("english-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-wo_accents") nil utf-8) ("english" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en") nil utf-8) ("espanol" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("espa\361ol" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("francais-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("francais-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("francais-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("francais-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("francais-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("francais-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("francais" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR") nil utf-8) ("french-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("french-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("french-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("french-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("french-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("french-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("french" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR") nil utf-8) ("spanish" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("suisse-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-40") nil utf-8) ("suisse-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-60") nil utf-8) ("suisse-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-80") nil utf-8) ("suisse-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-80") nil utf-8) ("suisse-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-60") nil utf-8) ("suisse-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-40") nil utf-8) ("suisse" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH") nil utf-8) (nil "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-B") nil utf-8))
--8<---------------cut here---------------end--------------->8---

Has anyone any idea on how to circumvent this?

Best regards,
  Seb

-- 
Sébastien Vauban


_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Value of `ispell-dictionary-alist' reset by `org-agenda-list'

[Noorul Islam]

2010/9/3 Sébastien Vauban <wxhgmqzgwmuf@spammotel.com>:
> Hello,
>
> I still don't understand what's going on, but I've managed getting closer to a
> long experienced problem in my Emacs: while I set the value of
> =ispell-dictionary-alist= in the beginning of my =.emacs= file, it is reset
> when calling =org-agenda-list=.
>
> Extract of my =.emacs= file:
>
> --8<---------------cut here---------------start------------->8---
>        (require 'ispell)  ;; `ispell.el' is already loaded at this stage
>
>        (eval-after-load "ispell"
>          '(progn
>             (message "Evaluate code AFTER HAVING LOADED `ispell'...")
>
>             ;; default dictionary to use (if `ispell-local-dictionary' is nil)
>             (setq ispell-dictionary "en_US")
>
>             ;; extensions and extra switches to pass to the `ispell' program
>             (cond
>              ((equal ispell-program-name "aspell")
>               (setq ispell-really-aspell t)
>               (setq ispell-extra-args '("--sug-mode=ultra")))
>              ((equal ispell-program-name "ispell")
>               (setq ispell-really-aspell nil)))
>
>             ;; redefine the list of installed dictionaries
>             (setq ispell-dictionary-alist
>                   '(
>                     ;; default
>                     (nil
>                      "[A-Za-z]" "[^A-Za-z]"
>                      "[']" nil ("-B") nil iso-8859-1)
>
>                     ;; Yankee English
>                     ("en_US"
>                      "[A-Za-z]" "[^A-Za-z]"
>                      "[']" nil ("-B") nil utf-8)))
>
>             ;; standard French
>             (when (or (file-exists-p "/usr/lib/aspell/fr_FR")
>                       (file-exists-p "/usr/lib/aspell/francais.alias"))
>                                        ; file can be opened for reading
>               (add-to-list 'ispell-dictionary-alist
>                            '("fr_FR"
>                              "[a-zàâäéèêëîïôöùûüçA-ZÀÂÄÉÈÊËÎÏÔÖÙÛÜÇ]" "[^a-zàâäéèêëîïôöùûüçA-ZÀÂÄÉÈÊËÎÏÔÖÙÛÜÇ]"
>                              "[-']" t nil "~list" utf-8)
>                            'append))))
>
> ;; [...]
>
>        (message "Value of `ispell-dictionary-alist' before `org-agenda-list'")
>        (edebug-print ispell-dictionary-alist)
>
>        (org-agenda-list)
>
>        (message "Value of `ispell-dictionary-alist' after `org-agenda-list'")
>        (edebug-print ispell-dictionary-alist)
>
>        (delete-other-windows)
> --8<---------------cut here---------------end--------------->8---
>
> and what I read in the =Messages= buffer:
>
> --8<---------------cut here---------------start------------->8---
> Value of `ispell-dictionary-alist' before `org-agenda-list'
>
> ((nil "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil iso-8859-1) ("en_US" "[A-Za-z]" "[^A-Za-z]" "[']" nil ("-B") nil utf-8) ("fr_FR" "[a-zàâäéèêëîïôöùûüçA-ZÀÂÄÉÈÊËÎÏÔÖÙÛÜÇ]" "[^a-zàâäéèêëîïôöùûüçA-ZÀÂÄÉÈÊËÎÏÔÖÙÛÜÇ]" "[-']" t nil "~list" utf-8))
>
> OVERVIEW
> Fontifying GTD.org... (regexps............................................)
> OVERVIEW
> Fontifying GTD.org... (regexps.............................................)
> OVERVIEW
> Fontifying GTD.org... (regexps..............................................)
> OVERVIEW
> Restoring clock data
> Loading /home/sva/.emacs.d/org-clock-save.el...
> Loading /home/sva/.emacs.d/org-clock-save.el (source)...done
>
> [... snip ....]
>
> Value of `ispell-dictionary-alist' after `org-agenda-list'
>
> (("svenska" "[A-Za-zåäöéàüèæøçÅÄÖÉÀÜÈÆØÇ]" "[^A-Za-zåäöéàüèæøçÅÄÖÉÀÜÈÆØÇ]" "[']" nil ("-C") "~list" iso-8859-1) ("slovenian" "[A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "[^A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "" nil ("-B" "-d" "slovenian") nil iso-8859-2) ("slovak" "[A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "[^A-Za-zÁÄÉÍÓÚÔÀťݮ©ÈÏ«Òáäéíóúôàåµý¾¹èï»ò]" "" nil ("-B") nil iso-8859-2) ("russianw" "[ÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÜÛÚÝÞßàáâãäå¸æçèéêëìíîïðñòóôõö÷øùüûúýþÿ]" "[^ÀÁÂÃÄŨÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÜÛÚÝÞßàáâãäå¸æçèéêëìíîïðñòóôõö÷øùüûúýþÿ]" "" nil nil nil windows-1251) ("russian" "[áâ÷çäå³öúéêëìíîïðòóôõæèãþûýøùÿüàñÁÂ×ÇÄÅ£ÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝØÙßÜÀÑ]" "[^áâ÷çäå³öúéêëìíîïðòóôõæèãþûýøùÿüàñÁÂ×ÇÄÅ£ÖÚÉÊËÌÍÎÏÐÒÓÔÕÆÈÃÞÛÝØÙßÜÀÑ]" "" nil nil nil koi8-r) ("portugues" "[a-zA-ZÁÂÉÓàáâéêíóãú]" "[^a-zA-ZÁÂÉÓàáâéêíóãú]" "[']" t ("-C") "~latin1" iso-8859-1) ("polish" "[A-Za-z¡£¦¬¯±³¶¼¿ÆÊÑÓæêñó]" "[^A-Za-z¡£¦¬¯±³¶¼¿ÆÊÑÓæêñó]" "[.]" nil nil nil iso-8859-2) ("norsk7-tex" "[A-Za-z{}\\'^`]" "[^A-Za-z{}\\'^`]" "[\"]" nil ("-d" "norsk") "~plaintex" iso-8859-1) ("norsk" "[A-Za-zÅÆÇÈÉÒÔØåæçèéòôø]" "[^A-Za-zÅÆÇÈÉÒÔØåæçèéòôø]" "[\"]" nil nil "~list" iso-8859-1) ("nederlands" "[A-Za-zÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïñòóôõöùúûü]" "[^A-Za-zÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïñòóôõöùúûü]" "[']" t ("-C") nil iso-8859-1) ("italiano" "[A-ZÀÁÈÉÌÍÒÓÙÚa-zàáèéìíóùú]" "[^A-ZÀÁÈÉÌÍÒÓÙÚa-zàáèéìíóùú]" "[-.]" nil ("-B" "-d" "italian") "~tex" iso-8859-1) ("german8" "[a-zA-ZÄÖÜäößü]" "[^a-zA-ZÄÖÜäößü]" "[']" t ("-C" "-d" "german") "~latin1" iso-8859-1) ("german" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1) ("francais-tex" "[A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü\\]" "[^A-Za-zÀÂÆÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü\\]" "[-'^`\".@]" t nil "~tex" iso-8859-1) ("francais7" "[A-Za-z]" "[^A-Za-z]" "[`'^-]" t nil nil iso-8859-1) ("esperanto-tex" "[A-Za-z^\\]" "[^A-Za-z^\\]" "[-'`\"]" t ("-C" "-d" "esperanto") "~tex" iso-8859-3) ("esperanto" "[A-Za-z¦¬¶¼ÆØÝÞæøýþ]" "[^A-Za-z¦¬¶¼ÆØÝÞæøýþ]" "[-']" t ("-C") "~latin3" iso-8859-3) ("deutsch8" "[a-zA-ZÄÖÜäößü]" "[^a-zA-ZÄÖÜäößü]" "[']" t ("-C" "-d" "deutsch") "~latin1" iso-8859-1) ("deutsch" "[a-zA-Z\"]" "[^a-zA-Z\"]" "[']" t ("-C") "~tex" iso-8859-1) ("dansk" "[A-ZÆØÅa-zæøå]" "[^A-ZÆØÅa-zæøå]" "[']" nil ("-C") nil iso-8859-1) ("czech" "[A-Za-zÁÉÌÍÓÚÙÝ®©ÈØÏ«Òáéìíóúùý¾¹èøï»ò]" "[^A-Za-zÁÉÌÍÓÚÙÝ®©ÈØÏ«Òáéìíóúùý¾¹èøï»ò]" "" nil ("-B") nil iso-8859-2) ("brasileiro" "[A-ZÁÉÍÓÚÀÈÌÒÙÃÕÇÜÂÊÔa-záéíóúàèìòùãõçüâêô]" "[^A-ZÁÉÍÓÚÀÈÌÒÙÃÕÇÜÂÊÔa-záéíóúàèìòùãõçüâêô]" "[']" nil nil nil iso-8859-1) ("nederlands8" "[A-Za-zÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïñòóôõöùúûü]" "[^A-Za-zÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïñòóôõöùúûü]" "[']" t ("-C" "-d" "dutch") nil iso-8859-1) ("francais-ch" "[A-Za-zÀÂÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü]" "[^A-Za-zÀÂÇÈÉÊËÎÏÔÙÛÜàâçèéêëîïôùûü]" "[-']" t ("-d" "fr_CH-60") "~list" iso-8859-1) ("nl" "[[:alpha:]]" "[^[:alpha:]]" "['-]" t ("-d" "nl") nil utf-8) ("fr_FR-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-sml") nil utf-8) ("fr_FR-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-med") nil utf-8) ("fr_FR-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-lrg") nil utf-8) ("fr_FR-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("fr_FR" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR") nil utf-8) ("fr_FR-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("fr_FR-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("fr_CH-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-sml") nil utf-8) ("fr_CH-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-med") nil utf-8) ("fr_CH-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-lrg") nil utf-8) ("fr_CH-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-80") nil utf-8) ("fr_CH-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-60") nil utf-8) ("fr_CH" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH") nil utf-8) ("fr_CH-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-40") nil utf-8) ("fr-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-sml") nil utf-8) ("fr-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-med") nil utf-8) ("fr-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-lrg") nil utf-8) ("fr-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-80") nil utf-8) ("fr" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr") nil utf-8) ("fr-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-60") nil utf-8) ("fr-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr-40") nil utf-8) ("es" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("en_US-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US-wo_accents") nil utf-8) ("en_US-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US-w_accents") nil utf-8) ("en_US" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US") nil utf-8) ("en_GB-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-wo_accents") nil utf-8) ("en_GB-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-w_accents") nil utf-8) ("en_GB-ize-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize-wo_accents") nil utf-8) ("en_GB-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize-w_accents") nil utf-8) ("en_GB-ize" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize") nil utf-8) ("en_GB-ise-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise-wo_accents") nil utf-8) ("en_GB-ise-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise-w_accents") nil utf-8) ("en_GB-ise" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise") nil utf-8) ("en_GB" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB") nil utf-8) ("en_CA-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA-wo_accents") nil utf-8) ("en_CA-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA-w_accents") nil utf-8) ("en_CA" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA") nil utf-8) ("en-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-wo_accents") nil utf-8) ("en-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-w_accents") nil utf-8) ("en-variant_2" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_2") nil utf-8) ("en-variant_1" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_1") nil utf-8) ("en-variant_0" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_0") nil utf-8) ("en" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en") nil utf-8) ("american-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US-w_accents") nil utf-8) ("american-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US-wo_accents") nil utf-8) ("american" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_US") nil utf-8) ("british-ise-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise-w_accents") nil utf-8) ("british-ise-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise-wo_accents") nil utf-8) ("british-ise" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ise") nil utf-8) ("british-ize-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize-w_accents") nil utf-8) ("british-ize-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize-wo_accents") nil utf-8) ("british-ize" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-ize") nil utf-8) ("british-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-w_accents") nil utf-8) ("british-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB-wo_accents") nil utf-8) ("british" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_GB") nil utf-8) ("canadian-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA-w_accents") nil utf-8) ("canadian-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA-wo_accents") nil utf-8) ("canadian" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en_CA") nil utf-8) ("castellano" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("castellano8" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("dutch" "[[:alpha:]]" "[^[:alpha:]]" "['-]" t ("-d" "nl") nil utf-8) ("english-variant_0" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_0") nil utf-8) ("english-variant_1" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_1") nil utf-8) ("english-variant_2" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-variant_2") nil utf-8) ("english-w_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-w_accents") nil utf-8) ("english-wo_accents" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en-wo_accents") nil utf-8) ("english" "[[:alpha:]]" "[^[:alpha:]]" "'" t ("-d" "en") nil utf-8) ("espanol" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("espa\361ol" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("francais-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("francais-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("francais-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("francais-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("francais-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("francais-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("francais" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR") nil utf-8) ("french-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("french-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("french-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("french-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-80") nil utf-8) ("french-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-60") nil utf-8) ("french-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR-40") nil utf-8) ("french" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_FR") nil utf-8) ("spanish" "[[:alpha:]]" "[^[:alpha:]]" "" t ("-d" "es") nil utf-8) ("suisse-40" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-40") nil utf-8) ("suisse-60" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-60") nil utf-8) ("suisse-80" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-80") nil utf-8) ("suisse-lrg" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-80") nil utf-8) ("suisse-med" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-60") nil utf-8) ("suisse-sml" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH-40") nil utf-8) ("suisse" "[[:alpha:]]" "[^[:alpha:]]" "['.-]" t ("-d" "fr_CH") nil utf-8) (nil "[[:alpha:]]" "[^[:alpha:]]" "[']" nil ("-B") nil utf-8))
> --8<---------------cut here---------------end--------------->8---
>
> Has anyone any idea on how to circumvent this?
>
> Best regards,
>  Seb
>
> --
> Sébastien Vauban
>

Since orgmode is using flyspell, looks like it is interfering with ispell.

From flyspell.el
======================================================
(defun flyspell-mode-on ()
  "Turn Flyspell mode on.  Do not use this; use `flyspell-mode' instead."
  (ispell-set-spellchecker-params) ; Initialize variables and dicts alists
  (setq ispell-highlight-face 'flyspell-incorrect)
  ;; local dictionaries setup
  (or ispell-local-dictionary ispell-dictionary
      (if flyspell-default-dictionary
          (ispell-change-dictionary flyspell-default-dictionary)))
======================================================

Thanks and Regards
Noorul

Re: Value of `ispell-dictionary-alist' reset by `org-agenda-list'

[Sébastien Vauban]

Hi Noorul and everybody,

Noorul Islam wrote:
> 2010/9/3 Sébastien Vauban <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>:
>> I still don't understand what's going on, but I've managed getting closer to a
>> long experienced problem in my Emacs: while I set the value of
>> =ispell-dictionary-alist= in the beginning of my =.emacs= file, it is reset
>> when calling =org-agenda-list=.

--8<---------------cut here---------------start------------->8---
(message "Value of `ispell-dictionary-alist' before `org-agenda-list'")
(edebug-print ispell-dictionary-alist)

(org-agenda-list)

(message "Value of `ispell-dictionary-alist' after `org-agenda-list'")
(edebug-print ispell-dictionary-alist)

(delete-other-windows)
--8<---------------cut here---------------end--------------->8---

>> Has anyone any idea on how to circumvent this?
>
> Since orgmode is using flyspell, looks like it is interfering with ispell.
>
> From flyspell.el
> ======================================================
> (defun flyspell-mode-on ()
>   "Turn Flyspell mode on.  Do not use this; use `flyspell-mode' instead."
>   (ispell-set-spellchecker-params) ; Initialize variables and dicts alists
>   (setq ispell-highlight-face 'flyspell-incorrect)
>   ;; local dictionaries setup
>   (or ispell-local-dictionary ispell-dictionary
>       (if flyspell-default-dictionary
>           (ispell-change-dictionary flyspell-default-dictionary)))
> ======================================================

Yes, but I don't understand why Org *would* (and did not write *does*, as it
still is not clear enough to me) setq the list of dictionaries...

Clearly a behavior to forbid!

Best regards,
  Seb

-- 
Sébastien Vauban


_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Value of `ispell-dictionary-alist' reset by `org-agenda-list'

[Noorul Islam K M]

Sébastien Vauban <wxhgmqzgwmuf@spammotel.com> writes:

> Hi Noorul and everybody,
>
> Noorul Islam wrote:
>> 2010/9/3 Sébastien Vauban <wxhgmqzgwmuf@spammotel.com>:
>>> I still don't understand what's going on, but I've managed getting closer to a
>>> long experienced problem in my Emacs: while I set the value of
>>> =ispell-dictionary-alist= in the beginning of my =.emacs= file, it is reset
>>> when calling =org-agenda-list=.
>
> (message "Value of `ispell-dictionary-alist' before `org-agenda-list'")
> (edebug-print ispell-dictionary-alist)
>
> (org-agenda-list)
>
> (message "Value of `ispell-dictionary-alist' after `org-agenda-list'")
> (edebug-print ispell-dictionary-alist)
>
> (delete-other-windows)
>
>
>>> Has anyone any idea on how to circumvent this?
>>
>> Since orgmode is using flyspell, looks like it is interfering with ispell.
>>
>> From flyspell.el
>> ======================================================
>> (defun flyspell-mode-on ()
>>   "Turn Flyspell mode on.  Do not use this; use `flyspell-mode' instead."
>>   (ispell-set-spellchecker-params) ; Initialize variables and dicts alists
>>   (setq ispell-highlight-face 'flyspell-incorrect)
>>   ;; local dictionaries setup
>>   (or ispell-local-dictionary ispell-dictionary
>>       (if flyspell-default-dictionary
>>           (ispell-change-dictionary flyspell-default-dictionary)))
>> ======================================================
>
> Yes, but I don't understand why Org *would* (and did not write *does*, as it
> still is not clear enough to me) setq the list of dictionaries...
>
> Clearly a behavior to forbid!

You might be able to write a flyspell-mode hook function which will set
the dictionary you like in the variable flyspell-default-dictionary.

Thanks and Regards
Noorul