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

[Reiner Steib]

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.

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/