Re: indistinguishable faces

[Sam Steingold]

> * In message <address@hidden>
> * On the subject of "Re: indistinguishable faces"
> * Sent on 07 Dec 2000 19:40:41 +0100
> * Honorable Per Abrahamsen <address@hidden> writes:
>
> Sam Steingold <address@hidden> writes:
> 
> > An alternative user-level solution would be to redefine `defface'...
> 
> Wouldn't a defadvice to "set-face-attribute" do the trick?

you mean `internal-set-face-1', right?  (there is a
`set-face-attribute-internal' built in, but no `set-face-attribute').

actually, changing `internal-set-face-1' to check for (eq name 'font)
and changing name to 'foreground with the appropriate color taken from a
customizable alist would be a better "emacs-devel"-level solution.

-- 
Sam Steingold (http://www.podval.org/~sds)
Support Israel's right to defend herself! <http://www.i-charity.com/go/israel>
Read what the Arabs leaders say to their people on <http://www.memri.org/>
main(a){printf(a,34,a="main(a){printf(a,34,a=%c%s%c,34);}",34);}