CVS update: MODIFIED: lisp ...
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>
+
+ * gtk-marshal.el (find-file):
+ Propagate hash changes to gtk-marshal.el.
+
2005-01-26 Ben Wing <ben(a)xemacs.org>
* 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)