Greek letter gamma in tex()



OK by me to change the way tex handles gamma,
but let's do it by simply defining the appropriate properties
instead of by calling texput.

best

Robert Dodier


> RCS file: /cvsroot/maxima/maxima/src/mactex.lisp,v
> retrieving revision 1.74
> diff -r1.74 mactex.lisp
> 469c469
> < (defprop %gamma "\\Gamma" texword)  ; THIS IS UNFORTUNATE ...
> ---
>> (defprop %gamma "\\gamma" texword)  ; THIS IS UNFORTUNATE ...
> 1173a1174,1192
>>
>> (eval-when (:load-toplevel :execute)
>> (simplify
>>  (mfunction-call $texput
>>                  (trd-msymeval %gamma '%gamma)
>>                  (m-tlambda ($arglist)
>>                             (declare (special $arglist))
>>                             ((lambda ($vx)
>>                                (declare (special $vx))
>>                                (mset '((mlist (3 "tex-gamma.mac" src))
>> $vx)
>>                                      (simplify ($args $arglist)))
>>                                (simplify
>>                                 (mfunction-call $concat
>>                                                 '"\\Gamma\\left("
>>                                                 (simplify
>>                                                  (mfunction-call $tex1
>> $vx))
>>                                                 '"\\right)")))
>>                              '$vx))))
>> )
>
> _______________________________________________
> Maxima mailing list
> Maxima at math.utexas.edu
> http://www.math.utexas.edu/mailman/listinfo/maxima
>