Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/events.c	Mon Aug 13 10:31:30 2007 +0200
+++ b/src/events.c	Mon Aug 13 10:32:22 2007 +0200
@@ -478,7 +478,10 @@
       return event;
     }
   else if (EQ (type, Qkey_press))
-    e->event_type = key_press_event;
+    {
+      e->event_type = key_press_event;
+      e->event.key.keysym = Qunbound;
+    }
   else if (EQ (type, Qbutton_press))
     e->event_type = button_press_event;
   else if (EQ (type, Qbutton_release))
@@ -700,7 +703,8 @@
   switch (e->event_type)
     {
     case key_press_event:
-      if (!(SYMBOLP (e->event.key.keysym) || CHARP (e->event.key.keysym)))
+      if (UNBOUNDP (e->event.key.keysym)
+	  || !(SYMBOLP (e->event.key.keysym) || CHARP (e->event.key.keysym)))
 	error ("Undefined key for keypress event");
       break;
     case button_press_event: