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

[Lars Ingebrigtsen <larsi@gnus.org>]

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