Mercurial > hg > xemacs-beta

comparison src/events.c @ 280:7df0dd720c89 r21-0b38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b38
author cvs
date Mon, 13 Aug 2007 10:32:22 +0200
parents ca9a9ec9c1c1
children c42ec1d1cded
comparison
equal deleted inserted replaced
279:c20b2fb5bb0a 280:7df0dd720c89
476 error ("Cannot set properties of empty event"); 476 error ("Cannot set properties of empty event");
477 UNGCPRO; 477 UNGCPRO;
478 return event; 478 return event;
479 } 479 }
480 else if (EQ (type, Qkey_press)) 480 else if (EQ (type, Qkey_press))
481 e->event_type = key_press_event; 481 {
482 e->event_type = key_press_event;
483 e->event.key.keysym = Qunbound;
484 }
482 else if (EQ (type, Qbutton_press)) 485 else if (EQ (type, Qbutton_press))
483 e->event_type = button_press_event; 486 e->event_type = button_press_event;
484 else if (EQ (type, Qbutton_release)) 487 else if (EQ (type, Qbutton_release))
485 e->event_type = button_release_event; 488 e->event_type = button_release_event;
486 else if (EQ (type, Qmotion)) 489 else if (EQ (type, Qmotion))
698 701
699 /* Finally, do some more validation. */ 702 /* Finally, do some more validation. */
700 switch (e->event_type) 703 switch (e->event_type)
701 { 704 {
702 case key_press_event: 705 case key_press_event:
703 if (!(SYMBOLP (e->event.key.keysym) || CHARP (e->event.key.keysym))) 706 if (UNBOUNDP (e->event.key.keysym)
707 || !(SYMBOLP (e->event.key.keysym) || CHARP (e->event.key.keysym)))
704 error ("Undefined key for keypress event"); 708 error ("Undefined key for keypress event");
705 break; 709 break;
706 case button_press_event: 710 case button_press_event:
707 case button_release_event: 711 case button_release_event:
708 #if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS) 712 #if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)