Mercurial > hg > xemacs-beta

comparison src/mule-charset.c @ 241:f955c73f5258 r20-5b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b19
author cvs
date Mon, 13 Aug 2007 10:16:16 +0200
parents 78f53ef88e17
children c5d627a313b1
comparison
equal deleted inserted replaced
240:835e739f3c17 241:f955c73f5258
559 struct charset_list_closure 559 struct charset_list_closure
560 { 560 {
561 Lisp_Object *charset_list; 561 Lisp_Object *charset_list;
562 }; 562 };
563 563
564 static void 564 static int
565 add_charset_to_list_mapper (CONST void *hash_key, void *hash_contents, 565 add_charset_to_list_mapper (CONST void *hash_key, void *hash_contents,
566 void *charset_list_closure) 566 void *charset_list_closure)
567 { 567 {
568 /* This function can GC */ 568 /* This function can GC */
569 Lisp_Object key, contents; 569 Lisp_Object key, contents;
573 CVOID_TO_LISP (key, hash_key); 573 CVOID_TO_LISP (key, hash_key);
574 VOID_TO_LISP (contents, hash_contents); 574 VOID_TO_LISP (contents, hash_contents);
575 charset_list = chcl->charset_list; 575 charset_list = chcl->charset_list;
576 576
577 *charset_list = Fcons (XCHARSET_NAME (contents), *charset_list); 577 *charset_list = Fcons (XCHARSET_NAME (contents), *charset_list);
578 return 0;
578 } 579 }
579 580
580 DEFUN ("charset-list", Fcharset_list, 0, 0, 0, /* 581 DEFUN ("charset-list", Fcharset_list, 0, 0, 0, /*
581 Return a list of the names of all defined charsets. 582 Return a list of the names of all defined charsets.
582 */ 583 */