#include	"defs.h"

/*
 * Add a character string at a given point.
 *
 * s = style for text
 * input = string
 */
text(h, s)
	DL	h;
	INT	s;
{
	DL1	savept;
	DL1	p1;
	CHAR	ts[DLSMAX];
	ERR	saverr;
	DL	p;
	INT	k;

	copypt(cmdpos, savept);
	copyjmp(onerror, saverr);
	if(any(k=h->type, "LB")==0)
		k='J';
	if(k!='L')
		h=first(k);
	if (setjmp(onerror)==0) {
		must(cursor(p1));
		if(p=findxact('h', h, p1))
			delete(p);
		copypt(dtow(p1), cmdpos);
		mode(NCMD);
		style(s, -1, 0);
		rdname(ts, sizeof(ts));
		if(*ts)
			newdl(BEFORE, last(k), 'h', 0, p1, s, ts, nil(STRING));
	}
	copyjmp(saverr, onerror);
	copypt(savept, cmdpos);
	mode(NCMD);
	return(k=='J');
}