[COMMIT] Propagate hash changes to gtk-marshal.el
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2005-01-27 Ben Wing <ben(a)xemacs.org>
* 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)