Mercurial > hg > xemacs-beta

comparison src/events.c @ 243:f220cc83d72e r20-5b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b20
author cvs
date Mon, 13 Aug 2007 10:17:07 +0200
parents 557eaa0339bf
children 83b3d10dcba9
comparison
equal deleted inserted replaced
242:fc816b73a05f 243:f220cc83d72e
75 void 75 void
76 clear_event_resource (void) 76 clear_event_resource (void)
77 { 77 {
78 Vevent_resource = Qnil; 78 Vevent_resource = Qnil;
79 } 79 }
80
81 static Lisp_Object mark_event (Lisp_Object, void (*) (Lisp_Object));
82 static void print_event (Lisp_Object, Lisp_Object, int);
83 static int event_equal (Lisp_Object, Lisp_Object, int);
84 static unsigned long event_hash (Lisp_Object obj, int depth);
85 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("event", event,
86 mark_event, print_event, 0, event_equal,
87 event_hash, struct Lisp_Event);
88 80
89 /* Make sure we lose quickly if we try to use this event */ 81 /* Make sure we lose quickly if we try to use this event */
90 static void 82 static void
91 deinitialize_event (Lisp_Object ev) 83 deinitialize_event (Lisp_Object ev)
92 { 84 {
394 abort (); 386 abort ();
395 } 387 }
396 388
397 return 0; /* unreached */ 389 return 0; /* unreached */
398 } 390 }
391
392 DEFINE_BASIC_LRECORD_IMPLEMENTATION ("event", event,
393 mark_event, print_event, 0, event_equal,
394 event_hash, struct Lisp_Event);
399 395
400 396
401 DEFUN ("make-event", Fmake_event, 0, 2, 0, /* 397 DEFUN ("make-event", Fmake_event, 0, 2, 0, /*
402 Create a new event of type TYPE, with properties described by PLIST. 398 Create a new event of type TYPE, with properties described by PLIST.
403 399