procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/macterm.c (mac_font_pattern_match): Allocate three more bytes to

Browse source 
regex for '^', '$', and '\0'.

* src/macterm.c (x_list_fonts): Protect pattern and newlist from
garbage collection.
This commit is contained in:
Andrew Choi 2001-01-28 15:47:04 +00:00
parent 5604ec34e4
commit b179a3a28f
2 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
mac/ChangeLog
View file

@ -1,5 +1,11 @@
2001-01-28 Andrew Choi <akochoi@i-cable.com>
* src/macterm.c (mac_font_pattern_match): Allocate three more
bytes to regex for '^', '$', and '\0'.
* src/macterm.c (x_list_fonts): Protect pattern and newlist from
garbage collection.
* src/macfns.c (QCconversion): Replaces QCalgorithm.
* src/macfns.c (image_ascent, lookup_image): Adapt to change of

7
mac/src/macterm.c
View file

@ -10197,7 +10197,7 @@ mac_font_pattern_match (fontname, pattern)
char * fontname;
char * pattern;
{
char *regex = (char *) alloca (strlen (pattern) * 2);
char *regex = (char *) alloca (strlen (pattern) * 2 + 3);
char *font_name_copy = (char *) alloca (strlen (fontname) + 1);
char *ptr;
@ -10424,12 +10424,15 @@ x_list_fonts (struct frame *f,
Lisp_Object newlist = Qnil;
int n_fonts = 0;
int i;
struct gcpro gcpro1, gcpro2;
if (font_name_table == NULL) /* Initialize when first used. */
init_font_name_table ();
ptnstr = XSTRING (pattern)->data;
GCPRO2 (pattern, newlist);
/* Scan and matching bitmap fonts. */
for (i = 0; i < font_name_count; i++)
{
@ -10445,6 +10448,8 @@ x_list_fonts (struct frame *f,
/* MAC_TODO: add code for matching outline fonts here */
UNGCPRO;
return newlist;
}