Mercurial > hg > xemacs-beta

comparison src/events.c @ 647:b39c14581166

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-08-13 04:45:47 by ben] removal of unsigned, size_t, etc.
author ben
date Mon, 13 Aug 2001 04:46:48 +0000
parents 183866b06e0b
children fdefd0186b75
comparison
equal deleted inserted replaced
646:00c54252fe4f 647:b39c14581166
298 case dead_event: 298 case dead_event:
299 return 1; 299 return 1;
300 } 300 }
301 } 301 }
302 302
303 static unsigned long 303 static Hash_Code
304 event_hash (Lisp_Object obj, int depth) 304 event_hash (Lisp_Object obj, int depth)
305 { 305 {
306 Lisp_Event *e = XEVENT (obj); 306 Lisp_Event *e = XEVENT (obj);
307 unsigned long hash; 307 Hash_Code hash;
308 308
309 hash = HASH2 (e->event_type, LISP_HASH (e->channel)); 309 hash = HASH2 (e->event_type, LISP_HASH (e->channel));
310 switch (e->event_type) 310 switch (e->event_type)
311 { 311 {
312 case process_event: 312 case process_event:
336 return HASH3 (hash, internal_hash (e->event.eval.function, depth + 1), 336 return HASH3 (hash, internal_hash (e->event.eval.function, depth + 1),
337 internal_hash (e->event.eval.object, depth + 1)); 337 internal_hash (e->event.eval.object, depth + 1));
338 338
339 case magic_eval_event: 339 case magic_eval_event:
340 return HASH3 (hash, 340 return HASH3 (hash,
341 (unsigned long) e->event.magic_eval.internal_function, 341 (Hash_Code) e->event.magic_eval.internal_function,
342 internal_hash (e->event.magic_eval.object, depth + 1)); 342 internal_hash (e->event.magic_eval.object, depth + 1));
343 343
344 case magic_event: 344 case magic_event:
345 { 345 {
346 struct console *con = XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e))); 346 struct console *con = XCONSOLE (CDFW_CONSOLE (EVENT_CHANNEL (e)));