suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

charcell fonts along with monospace

Browse Source 
svn: r6669
This commit is contained in:
Matthew Flatt 2007-06-16 00:02:50 +00:00
parent 441c509549
commit d5acea64b1
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mred/wxs/wxscheme.cxx
View File

@ -1025,10 +1025,12 @@ static int indirect_strcmp(const void *a, const void *b)
static int is_x_monospace(char *s)
{
if (s[0] == '-') {
/* Full X font name. Check for "-m-" in name. */
/* Full X font name. Check for "-m-" or "-c-" in name. */
int j;
for (j = 0; s[j+2]; j++) {
if ((s[j] == '-') && (s[j+1] == 'm') && (s[j+2] == '-'))
if ((s[j] == '-')
&& ((s[j+1] == 'm') || (s[j+1] == 'c'))
&& (s[j+2] == '-'))
return 1;
}
}