bug#14957: 24.3.50; Flyspell language visible in mode line

[Lars Ingebrigtsen]

Michael Heerdegen <michael_heerdegen@web.de> writes:

> You have to modify the default value, like this:
>
> (setq-default mode-line-format
>             (cons
>              '(:eval
>                (let ((dict (and (featurep 'ispell)
>                                 (or ispell-local-dictionary
>                                     ispell-dictionary))))
>                  (and dict
>                       (concat " ["
>                               (propertize (substring dict 0 2)
>                                           'face 'mode-line-highlight)
>                               "]"))))
>              (default-value 'mode-line-format)))

Everybody seemed to be in violent agreement about making Flyspell (and
friends) display the language currently in use (and I agree, too), but
the discussion petered out when the discussion turned to where to put
this.

Perhaps putting it in the Flyspell lighter?  So it'd be

... (Text Fly[br] Fill)

or something?

I'm not sure whether that's possible with the mode line machinery,
though -- we want clicking on "Fly" to switch the mode off, but clicking
on "[br]" to allow changing the dictionary.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no