Mercurial > hg > xemacs-beta

diff src/events.c @ 269:b2472a1930f2 r20-5b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 966663fcf606
children c5d627a313b1
line wrap: on
line diff
--- a/src/events.c	Mon Aug 13 10:26:31 2007 +0200
+++ b/src/events.c	Mon Aug 13 10:27:19 2007 +0200
@@ -505,11 +505,13 @@
   plist = Fcopy_sequence (plist);
   Fcanonicalize_plist (plist, Qnil);
 
-#define WRONG_EVENT_TYPE_FOR_PROPERTY(prop)					\
-  error_with_frob (type, "Invalid event type for `%s' property", keyword)
+#define WRONG_EVENT_TYPE_FOR_PROPERTY(prop)				\
+  error_with_frob (type, "Invalid event type for `%s' property",	\
+		   string_data (symbol_name (XSYMBOL (keyword))))
 
   EXTERNAL_PROPERTY_LIST_LOOP (tail, keyword, value, plist)
     {
+      CHECK_SYMBOL (keyword);
       if (EQ (keyword, Qchannel))
 	{
 	  if (e->event_type == key_press_event)