Uwe:
>> On Sat, 28 Jan 2012 19:28:56 +0000, Julian Bradfield
<jcb+xeb(a)jcbradfield.org> wrote:
Thanks very much, I would never have found that out.
> (face-property 'default (intern (substring (symbol-name attr) 1)))
To be fair, that includes some gratuitous hackery which I wouldn't
have done myself a few months ago, but having to cope with the VM code
finally made me internalize intern.
A more explicit piece of code, which you would come up with just by
reading the manuals, would be:
(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.
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta