The R Project SVN R

Rev

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

Rev 68956 Rev 73564
Line 64... Line 64...
64 
    getRHOMElong(m);
 64 
    getRHOMElong(m);
65 
    /* make sure no spaces in path */
 65 
    /* make sure no spaces in path */
66 
    for (p = rhomebuf; *p; p++)
 66 
    for (p = rhomebuf; *p; p++)
67 
	if (isspace(*p)) { hasspace = 1; break; }
 67 
	if (isspace(*p)) { hasspace = 1; break; }
68 
    if (hasspace)
 68 
    if (hasspace)
- 
 
 69 
	/* NOTE: this fails when short names are not enabled */
69 
	GetShortPathName(rhomebuf, rhomebuf, MAX_PATH);
 70 
	GetShortPathName(rhomebuf, rhomebuf, MAX_PATH);
70 
    return (rhomebuf);
 71 
    return (rhomebuf);
71 
}
 72 
}
72 
 
 73 
 
73 
 
 74