Re: auto-detect multiple languages -- ispell-detect.el

[Eli Zaretskii <eliz@gnu.org>]

> From: Emanuel Berg <incal@dataswamp.org>
> Date: Sat, 03 Aug 2024 21:58:09 +0200
> 
> (defun ispell-spell-all (&optional beg end)
>   (interactive
>     (when (use-region-p)
>       (list (region-beginning)
>             (region-end))))
>   (or beg (setq beg (point)))
>   (or end (setq end (point-max)))
>   (cl-loop for (lang dict) in ispell-langs do
>     (let* ((this (format "-->{%s}" lang))
>            (all  "-->{[[:alpha:]]\\{2\\}}")
>            (ispell-skip-region-alist
>             `(,(list this)
>               ,(list all (lambda ()
>                            (unless (re-search-forward this nil t)
>                              (goto-char end))))
>               ,@ispell-skip-region-alist)))
>       (unless (string= dict ispell-current-dictionary)
>         (ispell-change-dictionary dict))
>       (ispell-region beg end))))

Looping through several languages and restarting the speller each time
has the disadvantage that it is quite expensive, and will ask whether
to save the local dictionary each time, which is a minor nuisance,
IMO.

And if one uses Hunspell, one can set up the speller so that it
spell-checks several languages in parallel, in which case the above is
not needed.  This has an advantage that different languages can be
mixed in the same region, instead of separating them.  (If you don't
separate, then spelling in one language will mark text ion another
language as misspellings.)