# HG changeset patch
# User ben
# Date 1106872340 0
# Node ID f981d2fdd8807e3a6207d4bd225f58b06f845a35
# Parent  52dc9b940348092870f627347e0fce0cb3a1db63
[xemacs-hg @ 2005-01-28 00:32:17 by ben]
Propagate hash changes to gtk-marshal.el

gtk-marshal.el: Propagate hash changes to gtk-marshal.el.

diff -r 52dc9b940348 -r f981d2fdd880 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Jan 28 00:12:39 2005 +0000
+++ b/lisp/ChangeLog	Fri Jan 28 00:32:20 2005 +0000
@@ -1,3 +1,8 @@
+2005-01-27  Ben Wing  <ben@xemacs.org>
+
+	* gtk-marshal.el (find-file):
+	Propagate hash changes to gtk-marshal.el.
+	
 2005-01-26  Ben Wing  <ben@xemacs.org>
 
 	* newcomment.el:
diff -r 52dc9b940348 -r f981d2fdd880 lisp/gtk-marshal.el
--- a/lisp/gtk-marshal.el	Fri Jan 28 00:12:39 2005 +0000
+++ b/lisp/gtk-marshal.el	Fri Jan 28 00:32:20 2005 +0000
@@ -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)