Re: [AUCTeX-devel] Re: [AUCTeX-diffs] Changes to auctex/ChangeLog

[David Kastrup]

Reiner Steib <address@hidden> 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