diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-02-18 18:38:49 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-02-18 18:38:49 +0000 |
| commit | 81aefea4661fd1a8a0766ca354be4578ee817287 (patch) | |
| tree | 1cb29bbffdbb982b8b6c37feab9257c603ea450f /src/font.c | |
| parent | 5137f982740d90774cb889395161058ede89bd85 (diff) | |
| download | emacs-81aefea4661fd1a8a0766ca354be4578ee817287.tar.gz | |
(font_unparse_xlfd): Don't ignore integer pixel size specs.
Diffstat (limited to 'src/font.c')
| -rw-r--r-- | src/font.c | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/src/font.c b/src/font.c index 70b239694c0..b8da3de5ac7 100644 --- a/src/font.c +++ b/src/font.c @@ -75,7 +75,7 @@ Lisp_Object Qiso8859_1, Qiso10646_1, Qunicode_bmp, Qunicode_sip; #define CHECK_VALIDATE_FONT_SPEC(x) \ do { \ - if (! FONT_SPEC_P (x)) x = wrong_type_argument (Qfont, x); \ + if (! FONT_SPEC_P (x)) wrong_type_argument (Qfont, x); \ x = font_prop_validate (x); \ } while (0) @@ -1161,18 +1161,21 @@ font_unparse_xlfd (font, pixel_size, name, nbytes) xassert (NUMBERP (val) || NILP (val)); if (INTEGERP (val)) { - f[XLFD_PIXEL_INDEX] = alloca (22); - i = XINT (val); + int i = XINT (val); + if (i <= 0) + i = pixel_size; if (i > 0) - len += sprintf (f[XLFD_PIXEL_INDEX], "%d-*", i) + 1; - else if (pixel_size > 0) - len += sprintf (f[XLFD_PIXEL_INDEX], "%d-*", pixel_size) + 1; - f[XLFD_PIXEL_INDEX] = "*-*", len += 4; + { + f[XLFD_PIXEL_INDEX] = alloca (22); + len += sprintf (f[XLFD_PIXEL_INDEX], "%d-*", i) + 1; + } + else + f[XLFD_PIXEL_INDEX] = "*-*", len += 4; } else if (FLOATP (val)) { + int i = XFLOAT_DATA (val) * 10; f[XLFD_PIXEL_INDEX] = alloca (12); - i = XFLOAT_DATA (val) * 10; len += sprintf (f[XLFD_PIXEL_INDEX], "*-%d", i) + 1; } else |