Mercurial > hg > xemacs-beta

comparison src/mule-coding.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 f220cc83d72e
comparison
equal deleted inserted replaced
240:835e739f3c17 241:f955c73f5258
437 struct coding_system_list_closure 437 struct coding_system_list_closure
438 { 438 {
439 Lisp_Object *coding_system_list; 439 Lisp_Object *coding_system_list;
440 }; 440 };
441 441
442 static void 442 static int
443 add_coding_system_to_list_mapper (CONST void *hash_key, void *hash_contents, 443 add_coding_system_to_list_mapper (CONST void *hash_key, void *hash_contents,
444 void *coding_system_list_closure) 444 void *coding_system_list_closure)
445 { 445 {
446 /* This function can GC */ 446 /* This function can GC */
447 Lisp_Object key, contents; 447 Lisp_Object key, contents;
452 VOID_TO_LISP (contents, hash_contents); 452 VOID_TO_LISP (contents, hash_contents);
453 coding_system_list = cscl->coding_system_list; 453 coding_system_list = cscl->coding_system_list;
454 454
455 *coding_system_list = Fcons (XCODING_SYSTEM (contents)->name, 455 *coding_system_list = Fcons (XCODING_SYSTEM (contents)->name,
456 *coding_system_list); 456 *coding_system_list);
457 return 0;
457 } 458 }
458 459
459 DEFUN ("coding-system-list", Fcoding_system_list, 0, 0, 0, /* 460 DEFUN ("coding-system-list", Fcoding_system_list, 0, 0, 0, /*
460 Return a list of the names of all defined coding systems. 461 Return a list of the names of all defined coding systems.
461 */ 462 */