NOTE: This patch has been committed. lisp/ChangeLog addition: 2005-01-27 Ben Wing <ben(a)xemacs.org&gt; * gtk-marshal.el (find-file): Propagate hash changes to gtk-marshal.el. build source patch: Diff command: bash -ci "cvs-diff --show-c-function -no-changelog " Files affected: lisp/gtk-marshal.el Index: lisp/gtk-marshal.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/gtk-marshal.el,v retrieving revision 1.6 diff -u -p -r1.6 gtk-marshal.el --- lisp/gtk-marshal.el 2004/05/02 04:06:52 1.6 +++ lisp/gtk-marshal.el 2005/01/28 00:29:10 ＠＠ -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 ＠＠ static void initialize_marshaller_storag { 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)