Mercurial > hg > xemacs-beta

changeset 2523:f981d2fdd880

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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.
author ben
date Fri, 28 Jan 2005 00:32:20 +0000
parents 52dc9b940348
children c634f2d588e8
files lisp/ChangeLog lisp/gtk-marshal.el
diffstat 2 files changed, 6 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- 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:
--- 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)