Alterando o idioma do flyspell (Emacs) com um atalho

Question

Estou usando o código a seguir para iniciar flyspellquando edito arquivos LaTeX com Emacs+AUCTeX.

(if (file-exists-p "/usr/bin/hunspell")
    (progn
      (setq ispell-program-name "hunspell")
      (eval-after-load "ispell"
        '(progn (defun ispell-get-coding-system () 'utf-8)))))


(global-set-key [f2] 'flyspell-mode)
(add-hook 'LaTeX-mode-hook 'flyspell-mode)

Você pode notar flyspellque ele é iniciado automaticamente quando está no modo LaTeX (modo AUCTeX) e pode ser desabilitado/habilitado com o atalho F2.

A configuração usa hunspell(o que é muito melhor ispellou aspellna minha opinião) o idioma padrão do sistema (no meu caso: francês).

Gostaria de poder alterar o idioma com um atalho. Estou escrevendo em francês e inglês (às vezes dentro do mesmo documento) e conseguiria mudar o idioma rapidamente durante a edição. Por exemplo, seria maravilhoso se eu pudesse escolher o dicionário de inglês with F4e voltar ao dicionário francês padrão with F3(quando F2ainda é usado para ativar/desativar o toogle flyspell).

PS: Por enquanto estou fazendo a troca com M-x ispell-change-dictionarymas não é muito eficiente.

Answer 1

Adicione o seguinte código ao seu .emacs:

(global-set-key
 [f3]
 (lambda ()
   (interactive)
   (ispell-change-dictionary "francais")))
(global-set-key
 [f4]
 (lambda ()
   (interactive)
   (ispell-change-dictionary "english")))

Você já está cienteesse?