Re: indistinguishable faces

[Eli Zaretskii]

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?