Mercurial > hg > xemacs-beta

comparison src/marker.c @ 2515:de9952d2ed18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-26 10:22:19 by ben] Hash table cleanups, part 1 of 2 emacs-marshals.c, hash.c, hash.h, ui-gtk.c: Clean up and generalize creation of string hash tables. ui-gtk.c, elhash.h, gccache-gtk.c, glyphs-gtk.c, lrecord.h, marker.c, objects-gtk.c, objects-msw.c, objects-tty.c, objects-x.c, objects.c, opaque.c, rangetab.c, specifier.c, specifier.h, xgccache.c: Use Hashcode rather than unsigned long.
author ben
date Wed, 26 Jan 2005 10:22:29 +0000
parents 04bc9d2f42c7
children 9f70af3ac939
comparison
equal deleted inserted replaced
2514:b49d38bc659d 2515:de9952d2ed18
86 (marker1->membpos == marker2->membpos || 86 (marker1->membpos == marker2->membpos ||
87 /* All markers pointing nowhere are equal */ 87 /* All markers pointing nowhere are equal */
88 !marker1->buffer)); 88 !marker1->buffer));
89 } 89 }
90 90
91 static unsigned long 91 static Hashcode
92 marker_hash (Lisp_Object obj, int UNUSED (depth)) 92 marker_hash (Lisp_Object obj, int UNUSED (depth))
93 { 93 {
94 unsigned long hash = (unsigned long) XMARKER (obj)->buffer; 94 Hashcode hash = (Hashcode) XMARKER (obj)->buffer;
95 if (hash) 95 if (hash)
96 hash = HASH2 (hash, XMARKER (obj)->membpos); 96 hash = HASH2 (hash, XMARKER (obj)->membpos);
97 return hash; 97 return hash;
98 } 98 }
99 99