Reiner Steib <[EMAIL PROTECTED]> writes: > On Sat, Apr 23 2005, Ralf Angeli wrote: > >> * David Kastrup (2005-04-23) writes: > [...] >>> Are you sure this is correct? The old code contained an extra call >>> to "eval" for some reason, and the ChangeLog entry does not make >>> clear what has made this become unnecessary (or why it has been >>> necessary before). > [...] >> The old code did not work. The value must not be evaluated. >> `font-latex-title-fontify' can/should be a number or the symbol >> 'color. In case of the number it does not make a difference but (eval >> 'color) is clearly not the same as 'color. > > 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)) ... ) -- David Kastrup, Kriemhildstr. 15, 44793 Bochum _______________________________________________ auctex-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/auctex-devel
