Thanks, Robert,
I understand.
Here is the patch that I will apply to mactex.lisp as suggested by Robert,
RCS file: /cvsroot/maxima/maxima/src/mactex.lisp,v
retrieving revision 1.74
diff -r1.74 mactex.lisp
469c469,474
< (defprop %gamma "\\Gamma" texword) ; THIS IS UNFORTUNATE ...
---
> (defprop %gamma "\\gamma" texword) ; fix by yhonda Feb/13/2011
>
> (defprop %gamma tex-gamma tex) ; added by yhonda Feb/13/2011
> (defun tex-gamma (x l r)
> (tex (cadr x) (append l '("\\Gamma\\left(")) (append '("\\right)") r) 'mparen 'mparen))
>
Thanks and best regards,
Yasuaki Honda
On 2011/02/13, at 12:32, Robert Dodier wrote:
> On 2/11/11, Yasuaki Honda <yhonda at mac.com> wrote:
>
>>> (defprop %gamma "\\gamma" texword) ; THIS IS Now FORTUNATE ...
>
> OK so far ...
>
>>> (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)")))
>
> Well, MAKE-MAXIMA-TEX-GLUE just constructs a function and
> assigns it to the TEX property.
> Other functions are set up like that. So using TEX-SQRT as an
> example, I think it should be something like:
>
> (defprop %gamma tex-gamma tex)
>
> (defun tex-gamma (x l r)
> (tex (cadr x) (append l '("\\Gamma\\(")) (append '("\\)") r) 'mparen 'mparen))
>
> best
>
> Robert Dodier
> _______________________________________________
> Maxima mailing list
> Maxima at math.utexas.edu
> http://www.math.utexas.edu/mailman/listinfo/maxima