From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.bugs Subject: bug#14957: 24.3.50; Flyspell language visible in mode line Date: Fri, 08 Nov 2013 22:30:31 +0100 Message-ID: <87mwled1jc.fsf@web.de> References: <86y58teatq.fsf@missioncriticalit.com> <87wqmfz96x.fsf@web.de> <86a9hevcyl.fsf@somewhere.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1383955136 12086 80.91.229.3 (8 Nov 2013 23:58:56 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 8 Nov 2013 23:58:56 +0000 (UTC) Cc: 14957@debbugs.gnu.org To: Sebastien Vauban Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sat Nov 09 00:59:00 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Vevx4-00040T-VW for geb-bug-gnu-emacs@m.gmane.org; Sat, 09 Nov 2013 00:58:59 +0100 Original-Received: from localhost ([::1]:52375 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vevx4-00055c-NF for geb-bug-gnu-emacs@m.gmane.org; Fri, 08 Nov 2013 18:58:58 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:41939) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vevwm-0004jL-Qh for bug-gnu-emacs@gnu.org; Fri, 08 Nov 2013 18:58:55 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VevwT-0003MA-Jc for bug-gnu-emacs@gnu.org; Fri, 08 Nov 2013 18:58:40 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:56769) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vetdu-0008GZ-4k for bug-gnu-emacs@gnu.org; Fri, 08 Nov 2013 16:31:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Vetdt-00088y-Ox for bug-gnu-emacs@gnu.org; Fri, 08 Nov 2013 16:31:01 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 08 Nov 2013 21:31:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 14957 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 14957-submit@debbugs.gnu.org id=B14957.138394624831281 (code B ref 14957); Fri, 08 Nov 2013 21:31:01 +0000 Original-Received: (at 14957) by debbugs.gnu.org; 8 Nov 2013 21:30:48 +0000 Original-Received: from localhost ([127.0.0.1]:42555 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Vetdf-00088S-OE for submit@debbugs.gnu.org; Fri, 08 Nov 2013 16:30:48 -0500 Original-Received: from mout.web.de ([212.227.15.3]:55465) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Vetda-000886-52 for 14957@debbugs.gnu.org; Fri, 08 Nov 2013 16:30:44 -0500 Original-Received: from drachen.dragon ([90.187.149.156]) by smtp.web.de (mrweb002) with ESMTPA (Nemesis) id 0Lc8n7-1W45Mt3X9B-00jclM for <14957@debbugs.gnu.org>; Fri, 08 Nov 2013 22:30:35 +0100 In-Reply-To: <86a9hevcyl.fsf@somewhere.org> (Sebastien Vauban's message of "Fri, 08 Nov 2013 21:46:26 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) X-Provags-ID: V03:K0:1IH5tx7gZjpSHpIjPhEskYoEZvFFSEDf5XeBA04WHCahCyyoUTp En8JtDoCSSeyVtytkiwG58k7LNyu5zHtKT7jfUCTYRQoV4mg9OXf0V2LoIq2NRo7ErXc9+W tGFZtd5PFmacxdkKugRNKp2qv/BnylSoYmh33lz3p3PxNtFfCAGNgpsh8uUhmky4ri8TUtJ i0dsn2ketuWTdn1dpBBLg== X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:80165 Archived-At: Hi Sebastien, > (add-to-list 'mode-line-format > '(:eval > (let ((dict (and (featurep 'ispell) > (or ispell-local-dictionary > ispell-dictionary)))) > (and dict > (concat " [" > (propertize (substring dict 0 2) > 'face 'mode-line-highlight) > "]")))) 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: --8<---------------cut here---------------start------------->8--- (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))) --8<---------------cut here---------------end--------------->8--- Does that help? Regards, Michael.