Mercurial > hg > xemacs-beta

comparison src/chartab.c @ 5027:22179cd0fe15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author Ben Wing <ben@xemacs.org>
date Wed, 10 Feb 2010 07:25:19 -0600
parents ae48681c47fa
children b5df3737028a
comparison
equal deleted inserted replaced
5026:46cf825f6158 5027:22179cd0fe15
798 798
799 static int 799 static int
800 copy_mapper (struct chartab_range *range, Lisp_Object UNUSED (table), 800 copy_mapper (struct chartab_range *range, Lisp_Object UNUSED (table),
801 Lisp_Object val, void *arg) 801 Lisp_Object val, void *arg)
802 { 802 {
803 put_char_table (VOID_TO_LISP (arg), range, val); 803 put_char_table (GET_LISP_FROM_VOID (arg), range, val);
804 return 0; 804 return 0;
805 } 805 }
806 806
807 void 807 void
808 copy_char_table_range (Lisp_Object from, Lisp_Object to, 808 copy_char_table_range (Lisp_Object from, Lisp_Object to,
809 struct chartab_range *range) 809 struct chartab_range *range)
810 { 810 {
811 map_char_table (from, range, copy_mapper, LISP_TO_VOID (to)); 811 map_char_table (from, range, copy_mapper, STORE_LISP_IN_VOID (to));
812 } 812 }
813 813
814 static Lisp_Object 814 static Lisp_Object
815 get_range_char_table_1 (struct chartab_range *range, Lisp_Object table, 815 get_range_char_table_1 (struct chartab_range *range, Lisp_Object table,
816 Lisp_Object multi) 816 Lisp_Object multi)