Mercurial > hg > xemacs-beta

comparison src/file-coding.c @ 432:3a7e78e1142d r21-2-24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-24
author cvs
date Mon, 13 Aug 2007 11:29:58 +0200
parents 3ecd8885ac67
children 84b14dcb0985
comparison
equal deleted inserted replaced
431:a97165e56215 432:3a7e78e1142d
569 /* This function can GC */ 569 /* This function can GC */
570 struct coding_system_list_closure *cscl = 570 struct coding_system_list_closure *cscl =
571 (struct coding_system_list_closure *) coding_system_list_closure; 571 (struct coding_system_list_closure *) coding_system_list_closure;
572 Lisp_Object *coding_system_list = cscl->coding_system_list; 572 Lisp_Object *coding_system_list = cscl->coding_system_list;
573 573
574 *coding_system_list = Fcons (XCODING_SYSTEM (value)->name, 574 *coding_system_list = Fcons (key, *coding_system_list);
575 *coding_system_list);
576 return 0; 575 return 0;
577 } 576 }
578 577
579 DEFUN ("coding-system-list", Fcoding_system_list, 0, 0, 0, /* 578 DEFUN ("coding-system-list", Fcoding_system_list, 0, 0, 0, /*
580 Return a list of the names of all defined coding systems. 579 Return a list of the names of all defined coding systems.