The R Project SVN R

Rev

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

Rev 48500 Rev 48572
Line 208... Line 208...
208 
    known_to_be_latin1 = known_to_be_utf8 = FALSE;
 208 
    known_to_be_latin1 = known_to_be_utf8 = FALSE;
209 
    /* allow 'encoding' to override declaration on 'text'. */
 209 
    /* allow 'encoding' to override declaration on 'text'. */
210 
    if(streql(encoding, "latin1")) {
 210 
    if(streql(encoding, "latin1")) {
211 
	known_to_be_latin1 = TRUE;
 211 
	known_to_be_latin1 = TRUE;
212 
	allKnown = FALSE;
 212 
	allKnown = FALSE;
213 
    }
 - 
 
214 
    if(streql(encoding, "UTF-8"))  {
 213 
    } else if(streql(encoding, "UTF-8"))  {
215 
	known_to_be_utf8 = TRUE;
 214 
	known_to_be_utf8 = TRUE;
216 
	allKnown = FALSE;
 215 
	allKnown = FALSE;
217 
    }
 216 
    } else if(!streql(encoding, "unknown"))
- 
 
 217 
    	warning(_("argument '%s = \"%s\"' will be ignored"), "encoding", encoding);
218 
 
 218 
 
219 
    if (prompt == R_NilValue)
 219 
    if (prompt == R_NilValue)
220 
	PROTECT(prompt);
 220 
	PROTECT(prompt);
221 
    else
 221 
    else
222 
	PROTECT(prompt = coerceVector(prompt, STRSXP));
 222 
	PROTECT(prompt = coerceVector(prompt, STRSXP));