[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/xfns.c,v
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/src/xfns.c,v |
Date: |
Sat, 21 Oct 2006 01:57:17 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kenichi Handa <handa> 06/10/21 01:57:16
Index: xfns.c
===================================================================
RCS file: /cvsroot/emacs/emacs/src/xfns.c,v
retrieving revision 1.677
retrieving revision 1.678
diff -u -b -r1.677 -r1.678
--- xfns.c 22 Sep 2006 08:09:10 -0000 1.677
+++ xfns.c 21 Oct 2006 01:57:16 -0000 1.678
@@ -2020,13 +2020,14 @@
else
{
int len;
- char *p1 = NULL, *p2 = NULL;
+ char *p1 = NULL, *p2 = NULL, *p3 = NULL;
char *font_allcs = NULL;
char *font_allfamilies = NULL;
char *font_all = NULL;
char *allcs = "*-*-*-*-*-*-*";
char *allfamilies = "-*-*-";
char *all = "*-*-*-*-";
+ char *base;
for (i = 0, p = base_fontname; i < 8; p++)
{
@@ -2037,8 +2038,27 @@
p1 = p + 1;
else if (i == 7)
p2 = p + 1;
+ else if (i == 6)
+ p3 = p + 1;
}
}
+ /* If base_fontname specifies ADSTYLE, make it a
+ wildcard. */
+ if (*p3 != '*')
+ {
+ int diff = (p2 - p3) - 2;
+
+ base = alloca (strlen (base_fontname) + 1);
+ bcopy (base_fontname, base, p3 - base_fontname);
+ base[p3 - base_fontname] = '*';
+ base[(p3 - base_fontname) + 1] = '-';
+ strcpy (base + (p3 - base_fontname) + 2, p2);
+ p = base + (p - base_fontname) - diff;
+ p1 = base + (p1 - base_fontname);
+ p2 = base + (p2 - base_fontname) - diff;
+ base_fontname = base;
+ }
+
/* Build the font spec that matches all charsets. */
len = p - base_fontname + strlen (allcs) + 1;
font_allcs = (char *) alloca (len);
@@ -2046,7 +2066,8 @@
bcopy (base_fontname, font_allcs, p - base_fontname);
strcat (font_allcs, allcs);
- /* Build the font spec that matches all families. */
+ /* Build the font spec that matches all families and
+ add-styles. */
len = p - p1 + strlen (allcs) + strlen (allfamilies) + 1;
font_allfamilies = (char *) alloca (len);
bzero (font_allfamilies, len);
@@ -2113,13 +2134,28 @@
if (!xfs)
{
char *fontsetname = xic_create_fontsetname (base_fontname, False);
+ char *p0 = fontsetname, *p1;
/* New fontset. */
+ /* FONTSETNAME contains a list of font names (specific fonts
+ first, general fonts last), but giving that to XCreateFontSet
+ at once occasionally fails (bug of X?). So, we try to call
+ XCreateFontSet for each fontname. */
+
+ while (p0)
+ {
+ p1 = strchr (p0, ',');
+ if (p1)
+ *p1 = '\0';
xfs = XCreateFontSet (FRAME_X_DISPLAY (f),
- fontsetname, &missing_list,
+ p0, &missing_list,
&missing_count, &def_string);
if (missing_list)
XFreeStringList (missing_list);
+ if (xfs)
+ break;
+ p0 = p1 ? p1 + 1 : NULL;
+ }
xfree (fontsetname);
}
- [Emacs-diffs] Changes to emacs/src/xfns.c,v,
Kenichi Handa <=