Julian Bradfield writes:
(face-property 'default (cond
((eq attr :foreground) 'foreground)
((eq attr :background) 'background)))
This is arguably better, because it makes explicit the correspondence
between specific FSFmacs attribute keys and XEmacs properties, without
overgeneralizing to an assumption that it will always work.
Well, if it doesn't work, we probably should/have to make it work,
since our defface is supposed to be compatible with Emacs's even if
the underlying implementation is not.
On the other hand, adding `(t (error 'unimplemented "unknown face
property" attr))' in the explicit cond might be a good idea. :-)
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta