Mercurial > hg > xemacs-beta

diff src/mule-charset.c @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents e121b013d1f0
children 78f53ef88e17
line wrap: on
line diff
--- a/src/mule-charset.c	Mon Aug 13 09:54:24 2007 +0200
+++ b/src/mule-charset.c	Mon Aug 13 09:55:28 2007 +0200
@@ -444,8 +444,7 @@
   struct Lisp_Charset *cs;
   Lisp_Object obj = Qnil;
 
-  cs = (struct Lisp_Charset *) alloc_lcrecord (sizeof (struct Lisp_Charset),
-					       lrecord_charset);
+  cs = alloc_lcrecord_type (struct Lisp_Charset, lrecord_charset);
   XSETCHARSET (obj, cs);
 
   CHARSET_NAME		(cs) = name;
@@ -568,7 +567,8 @@
   /* This function can GC */
   Lisp_Object key, contents;
   Lisp_Object *charset_list;
-  struct charset_list_closure *chcl = charset_list_closure;
+  struct charset_list_closure *chcl =
+    (struct charset_list_closure*) charset_list_closure;
   CVOID_TO_LISP (key, hash_key);
   VOID_TO_LISP (contents, hash_contents);
   charset_list = chcl->charset_list;