GNU bug report logs - #14957
24.3.50; Flyspell language visible in mode line

Previous Next

Full log

Message #32 received at 14957 <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: 14957 <at> debbugs.gnu.org
Cc: Sebastien Vauban <sva-news <at> mygooglest.com>
Subject: Re: bug#14957: 24.3.50; Flyspell language visible in mode line
Date: Tue, 14 Jan 2014 12:04:00 -0500

Following message was posted via usenet and so does not show up in bug
tracker. I'm not going to mention this issue again.

"Sebastien Vauban" wrote:

> Hello Michael,
>
> Michael Heerdegen wrote:
>>> (add-to-list 'mode-line-format ...)
>>
>> That's not good. `mode-line-format' "automatically becomes
>> buffer-local when set" (see C-h v). Your `add-to-list' only
>> manipulates the `mode-line-format' of the current buffer when your
>> code is evaluated (*scratch*, probably).
>>
>> 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)))
>>
>> Does that help?
>
> It does and did.
>
> Though, when opening some types of files (?) [1], I just observed that there is
> an error message generated:
>
>   ╭────
>   │ File mode specification error: (wrong-type-argument buffer-or-string-p
>   │ (:eval (let ((dict (and (featurep (quote ispell)) (not buffer-read-only)
>   │ (or ispell-local-dictionary ispell-dictionary)))) (and dict (propertize
>   │ (concat " " (substring dict 0 2)) (quote face) (quote
>   │ mode-line-highlight))))))
>   ╰────
>
> I'm not sure what to understand from that... That `mode-line-format' must be
> a string?  Hence, how do we put the `eval' stuff?
>
> Best regards,
>   Seb
>
> [1] Opening a file with a `.csv' extension.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.