The R Project SVN R

Rev

Rev 21044 | Rev 22974 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 21044 Rev 21054
Line 404... Line 404...
404 
		else if (!strcmp(CHAR(STRING_ELT(nms, i)), "vfont")) {
 404 
		else if (!strcmp(CHAR(STRING_ELT(nms, i)), "vfont")) {
405 
		    vfont = FixupVFont(VECTOR_ELT(spec, i));
 405 
		    vfont = FixupVFont(VECTOR_ELT(spec, i));
406 
		}
 406 
		}
407 
		else if (!strcmp(CHAR(STRING_ELT(nms, i)), "")) {
 407 
		else if (!strcmp(CHAR(STRING_ELT(nms, i)), "")) {
408 
		    txt = VECTOR_ELT(spec, i);
 408 
		    txt = VECTOR_ELT(spec, i);
409 
		    if (TYPEOF(txt) == LANGSXP) {
 409 
		    if (TYPEOF(txt) == LANGSXP || TYPEOF(txt)==SYMSXP) {
410 
			UNPROTECT(1);
 410 
			UNPROTECT(1);
411 
			PROTECT(txt = coerceVector(txt, EXPRSXP));
 411 
			PROTECT(txt = coerceVector(txt, EXPRSXP));
412 
		    }
 412 
		    }
413 
		    else if (!isExpression(txt)) {
 413 
		    else if (!isExpression(txt)) {
414 
			UNPROTECT(1);
 414 
			UNPROTECT(1);