Mercurial > hg > xemacs-beta

comparison src/mule-charset.c @ 5119:d877c14318b3 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge in latest-fix changes
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:22:48 -0600
parents e0db3c197671 c12b646d84ee
children d1247f3cc363
comparison
equal deleted inserted replaced
5118:e0db3c197671 5119:d877c14318b3
865 DEFUN ("set-charset-ccl-program", Fset_charset_ccl_program, 2, 2, 0, /* 865 DEFUN ("set-charset-ccl-program", Fset_charset_ccl_program, 2, 2, 0, /*
866 Set the `ccl-program' property of CHARSET to CCL-PROGRAM. 866 Set the `ccl-program' property of CHARSET to CCL-PROGRAM.
867 */ 867 */
868 (charset, ccl_program)) 868 (charset, ccl_program))
869 { 869 {
870 struct ccl_program test_ccl;
871
872 charset = Fget_charset (charset); 870 charset = Fget_charset (charset);
873 XCHARSET_CCL_PROGRAM (charset) = get_ccl_program (ccl_program); 871 XCHARSET_CCL_PROGRAM (charset) = get_ccl_program (ccl_program);
874 872
875 face_property_was_changed (Vdefault_face, Qfont, Qglobal); 873 face_property_was_changed (Vdefault_face, Qfont, Qglobal);
876 return Qnil; 874 return Qnil;