mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(w32_to_x_charset): Increase size of XLFD charset buffer.

Browse Source 
(enum_font_cb2): Ignore fonts with vertical orientation.
This commit is contained in:
Jason Rumney 2001-10-30 22:26:40 +00:00
parent 27c4f6c021
commit 5e905a5737
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ChangeLog
View File

@ -1,3 +1,8 @@
2001-10-30 Jason Rumney <jasonr@gnu.org>
* w32fns.c (w32_to_x_charset): Increase size of XLFD charset buffer.
(enum_font_cb2): Ignore fonts with vertical orientation.
2001-10-30 Richard M. Stallman <rms@gnu.org>
* keyboard.c (Finput_pending_p): Doc fix.

21
src/w32fns.c
View File

@ -5994,7 +5994,7 @@ static char *
w32_to_x_charset (fncharset)
int fncharset;
{
static char buf[16];
static char buf[32];
Lisp_Object charset_type;
switch (fncharset)
@ -6141,8 +6141,8 @@ w32_to_x_charset (fncharset)
return buf;
}
strncpy(buf, best_match, 15);
buf[15] = '\0';
strncpy(buf, best_match, 31);
buf[31] = '\0';
return buf;
}
}
@ -6672,13 +6672,16 @@ enum_font_cb2 (lplf, lptm, FontType, lpef)
int FontType;
enumfont_t * lpef;
{
if (lplf->elfLogFont.lfStrikeOut || lplf->elfLogFont.lfUnderline)
return (1);
/* Ignore struck out, underlined and vertical versions of fonts. */
if (lplf->elfLogFont.lfStrikeOut || lplf->elfLogFont.lfUnderline
|| lplf->elfLogFont.lfEscapement != 0
|| lplf->elfLogFont.lfOrientation != 0)
return 1;
/* Check that the character set matches if it was specified */
if (lpef->logfont.lfCharSet != DEFAULT_CHARSET &&
lplf->elfLogFont.lfCharSet != lpef->logfont.lfCharSet)
return (1);
return 1;
{
char buf[100];
@ -6725,7 +6728,7 @@ enum_font_cb2 (lplf, lptm, FontType, lpef)
/* TODO: List all relevant charsets if charset not specified. */
if (!w32_to_x_font (&(lplf->elfLogFont), buf, 100, charset))
return (0);
return 0;
if (NILP (*(lpef->pattern))
|| w32_font_match (buf, XSTRING (*(lpef->pattern))->data))
@ -6736,7 +6739,7 @@ enum_font_cb2 (lplf, lptm, FontType, lpef)
}
}
return (1);
return 1;
}
static int CALLBACK