User: ben Date: 05/01/28 01:32:27 Modified: xemacs/lisp ChangeLog gtk-marshal.el Log: Propagate hash changes to gtk-marshal.el gtk-marshal.el: Propagate hash changes to gtk-marshal.el. Revision Changes Path 1.617 +5 -0 XEmacs/xemacs/lisp/ChangeLog (In the diff below, changes in quantity of whitespace are not shown.) Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.616 retrieving revision 1.617 diff -u -b -r1.616 -r1.617 --- ChangeLog 2005/01/26 09:57:14 1.616 +++ ChangeLog 2005/01/28 00:32:17 1.617 ＠＠ -1,3 +1,8 ＠＠ +2005-01-27 Ben Wing <ben(a)xemacs.org&gt; + + * gtk-marshal.el (find-file): + Propagate hash changes to gtk-marshal.el. + 2005-01-26 Ben Wing <ben(a)xemacs.org&gt; * newcomment.el: 1.7 +1 -30 XEmacs/xemacs/lisp/gtk-marshal.el (In the diff below, changes in quantity of whitespace are not shown.) Index: gtk-marshal.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/gtk-marshal.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -b -r1.6 -r1.7 --- gtk-marshal.el 2004/05/02 04:06:52 1.6 +++ gtk-marshal.el 2005/01/28 00:32:20 1.7 ＠＠ -261,35 +261,6 ＠＠ (insert "\n #include \"hash.h\" -static int -our_string_eq (const void *st1, const void *st2) -{ - if (!st1) - return st2 ? 0 : 1; - else if (!st2) - return 0; - else - return !strcmp ( (const char *) st1, (const char *) st2); -} - -static unsigned long -our_string_hash (const void *xv) -{ - unsigned int h = 0; - unsigned const char *x = (unsigned const char *) xv; - - if (!x) return 0; - - while (*x) - { - unsigned int g; - h = (h << 4) + *x++; - if ((g = h & 0xf0000000) != 0) - h = (h ^ (g >> 24)) ^ g; - } - - return h; -} static struct hash_table *marshaller_hashtable; ＠＠ -297,7 +268,7 ＠＠ { if (!marshaller_hashtable) { - marshaller_hashtable = make_general_hash_table (100, our_string_hash, our_string_eq); + marshaller_hashtable = make_string_hash_table (100); ") (mapc (lambda (x)