David Kastrup <[EMAIL PROTECTED]> writes: > Reiner Steib <[EMAIL PROTECTED]> writes: > >> My mistake, sorry. IIRC, for this code... >> (defcustom font-latex-title-fontify (if (featurep 'xemacs) 'color 1.1) >> ... the extra `eval' was (or would be) necessary. >> >> I was surprised that `foo-1' defcustomed as... >> >> (defcustom foo-1 (if (featurep 'xemacs) 'color 1.1) >> "bar" >> :initialize (lambda (symbol value) >> (set-default symbol value))) >> ==> (if (featurep 'xemacs) 'color 1.1) >> >> ... is not a number, i.e. (number ...) is nil. Therefore I added >> `eval':
>> (defcustom foo-2 (if (featurep 'xemacs) 'color 1.1) >> "bar" >> :initialize (lambda (symbol value) >> (set-default symbol (eval value)))) >> ==> 1.1 >> >> I don't know how it can be done in more clearly. > > (defcustom foo-2 (eval-when-compile (if featurep 'xemacs) 'color 1.1)) > ... > ) Bother, that is just skirting the issue. I just checked and all the custom-initialize whatever functions do an explicit eval on the value. There must be millions of places in code I wrote where this is done wrong. Sigh. -- David Kastrup, Kriemhildstr. 15, 44793 Bochum _______________________________________________ auctex-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/auctex-devel
