Hi Robert,
The patch could be simplified to be:
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 Now FORTUNATE ...
1173a1174,1201
>
> (eval-when (:load-toplevel :execute)
> (make-maxima-tex-glue '%gamma
> #'(lambda (arglist &aux $vx)
> (declare (special $vx))
> (mset '((mlist) $vx) ($args arglist))
> ($concat "\\Gamma\\left(" ($tex1 $vx) "\\right)")))
The function make-maxima-tex-glue is defined in the file mactex.lisp and used
in the function texput internally. This function seems to be a good interface
for this purpose. Otherwise I need to re-invent make-maxima-tex-glue again,,,.
Do you think this is acceptable?
On 2011/02/12, at 1:41, Robert Dodier wrote:
> 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
>>
> _______________________________________________
> Maxima mailing list
> Maxima at math.utexas.edu
> http://www.math.utexas.edu/mailman/listinfo/maxima