From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Re: can't turn off font-lock Date: Tue, 14 Aug 2007 02:27:47 +0300 Organization: JURTA Message-ID: <87vebj2ex8.fsf@jurta.org> References: <200708132214.l7DMEq616365@f7.net> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1187047818 2295 80.91.229.12 (13 Aug 2007 23:30:18 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 13 Aug 2007 23:30:18 +0000 (UTC) Cc: emacs-devel@gnu.org To: karl@freefriends.org (Karl Berry) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Aug 14 01:30:15 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IKjMU-0004aQ-As for ged-emacs-devel@m.gmane.org; Tue, 14 Aug 2007 01:30:14 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IKjMT-00009y-GP for ged-emacs-devel@m.gmane.org; Mon, 13 Aug 2007 19:30:13 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IKjMP-00007z-Qg for emacs-devel@gnu.org; Mon, 13 Aug 2007 19:30:09 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IKjMO-000063-Kl for emacs-devel@gnu.org; Mon, 13 Aug 2007 19:30:09 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IKjMO-00005m-EJ for emacs-devel@gnu.org; Mon, 13 Aug 2007 19:30:08 -0400 Original-Received: from relay02.kiev.sovam.com ([62.64.120.197]) by monty-python.gnu.org with esmtps (TLS-1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1IKjMO-0000KK-24 for emacs-devel@gnu.org; Mon, 13 Aug 2007 19:30:08 -0400 Original-Received: from [83.170.232.243] (helo=smtp.svitonline.com) by relay02.kiev.sovam.com with esmtp (Exim 4.67) (envelope-from ) id 1IKjM3-000Gsk-L9; Tue, 14 Aug 2007 02:29:50 +0300 In-Reply-To: <200708132214.l7DMEq616365@f7.net> (Karl Berry's message of "Mon\, 13 Aug 2007 17\:14\:52 -0500") User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.1.50 (gnu/linux) X-Scanner-Signature: 3140350ce96b4815fe22a3a842dc7b15 X-DrWeb-checked: yes X-SpamTest-Envelope-From: juri@jurta.org X-SpamTest-Group-ID: 00000000 X-SpamTest-Header: Not Detected X-SpamTest-Info: Profiles 1386 [August 13 2007] X-SpamTest-Info: helo_type=3 X-SpamTest-Info: {HEADERS: header Content-Type found without required header Content-Transfer-Encoding} X-SpamTest-Method: none X-SpamTest-Rate: 10 X-SpamTest-Status: Not detected X-SpamTest-Status-Extended: not_detected X-SpamTest-Version: SMTP-Filter Version 3.0.0 [0255], KAS30/Release X-Detected-Kernel: FreeBSD 4.8-5.1 (or MacOS X 10.2-10.3) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:76478 Archived-At: > (mapc (lambda (face) (modify-face face)) (face-list)) > > Thanks Juri, that's very helpful. I discovered I don't really want mode > line faces disabled :), so I'm playing with some conditions, but that's > a detail. And it has to be run after packages get loaded, since of > course it can't disable faces that don't exist yet. Another detail. At > least now I know how to shut them off. I use the following trick to post-process faces immediately after they get created. I also modified this code to not reset mode line faces: (defun my-faces-fix (&optional frame) "Fix defined faces." (interactive) ;; Check if this function is called by `custom-define-hook' from ;; `custom-declare-face' where the variable `face' is bound locally. (when (boundp 'face) (dolist (face (face-list)) (unless (memq face '(mode-line mode-line-highlight mode-line-inactive)) ;; Reset all face attributes (modify-face face))))) ;; 1. Fix existing faces (let ((face t)) (my-faces-fix)) ;; 2. Call `my-faces-fix' every time some new face gets defined (add-to-list 'custom-define-hook 'my-faces-fix) -- Juri Linkov http://www.jurta.org/emacs/