Re: [Texmacs-dev] operation on the selection

[Nix N. Nix]

On Wed, 2003-03-26 at 14:59, Nix N. Nix wrote:
> [...]
> > Oh, I see.  However, this does not work either:
> > 
> > (define (make-brackets left right)
> >   (if (selection-active-normal?)
> >     (begin (cut "primary") (make-large-left left) (paste "primary")
> >            (let* ((pos (tm-position-new)) (old (tm-position-get pos)))
> >              (make-large-right right)
> >              (tm-go-to old)
> >              (tm-position-delete pos)))
> >     (begin (make-large-left left)
> >            (let* ((pos (tm-position-new)) (old (tm-position-get pos)))
> >              (make-large-right right) 
> >              (tm-go-to old) 
> >              (tm-position-delete pos)))))
> > 
> [...]
> Correction:  The motion commands /do/ seem to work, but only on Mac OS
> X.  This same code doesn't move the insertion point on any of my Linux
> computers.  The Mac OS X machine has guile version 1.4, just like my
> Linux boxen, as well as TeXmacs 1.0.1.8, just like my Linux boxen.
> 
> I have tried a binary TeXmacs RPM and I have also tried compiling it
> from source.  In both cases, (tm-go-to old) from the above code doesn't
> seem to work.
> 
Correction-to-the-correction: It /does/ work (move the insertion point
back), but only if the math mode already contains some stuff, i.e.:

M-F2 -> $ -> (make-brackets "(" ")")

doesn't move the insertion point back, but

M-F2 -> $ -> a -> (make-brackets "(" ")")

does.  IOW, typing anything into a math environment causes /some kind/
of initialization to take place, which then makes (tm-go-to old) work
properly.