(mac_do_list_fonts): Fix memory leak

2 files changed, 6 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index c7af7651f6c..33d6f42799c 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-20  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+        * macterm.c (mac_do_list_fonts): Fix memory leak
+
 2004-12-20  Richard M. Stallman  <rms@gnu.org>
 
         * regex.c (re_match_2_internal) <symend, wordend>:
diff --git a/src/macterm.c b/src/macterm.c
index ca15d3c4965..9dae0b54d70 100644
--- a/src/macterm.c
+++ b/src/macterm.c
@@ -6426,7 +6426,7 @@ mac_do_list_fonts (pattern, maxnames)
         {
           font_list = Fcons (fontname, font_list);
           if (exact || maxnames > 0 && ++n_fonts >= maxnames)
-            return font_list;
+            break;
         }
       else if (scl_val[XLFD_SCL_PIXEL_SIZE] > 0
                && (ptr = strstr (font_name_table[i], "-0-0-75-75-m-0-")))
@@ -6446,7 +6446,7 @@ mac_do_list_fonts (pattern, maxnames)
             {
               font_list = Fcons (fontname, font_list);
               if (exact || maxnames > 0 && ++n_fonts >= maxnames)
-                return font_list;
+                break;
             }
         }
     }