[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: indistinguishable faces

From: Eli Zaretskii
Subject: Re: indistinguishable faces
Date: Thu, 7 Dec 2000 19:28:14 +0200 (IST)

On 7 Dec 2000, Sam Steingold wrote:

> What about using this (in, say, faces.el):
> (defvar font-add-color-alist '((bold . "red") (italic . "maroon")
>                                (bold-italic . "magenta"))
>   "*The alist of fonts and colors for `font-add-color'.")
> (defun font-add-colors ()
>   "Add `foreground-color' to some fonts using `font-add-color-alist'."
>   (interactive)
>   (let ((all-faces (apropos-internal "" 'facep))
>         (bold (cdr (assq 'bold font-add-color-alist)))
>         (italic (cdr (assq 'italic font-add-color-alist)))
>         (bold-italic (cdr (assq 'bold-italic font-add-color-alist))))

This will only do what you want for the faces that are defined when this 
function is invoked.  But it doesn't help for faces defined later, by 
packages Emacs loads on demand.

In effect, what you wrote is a replacement for manually customizing each 
bold face to have a specific color, which you said was not enough, 
because other bold faces aren't changed.

Did I miss something?

reply via email to

[Prev in Thread] Current Thread [Next in Thread]