Mercurial > hg > xemacs-beta

diff src/events.c @ 195:a2f645c6b9f8 r20-3b24

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b24
author cvs
date Mon, 13 Aug 2007 09:59:05 +0200
parents 489f57a838ef
children acd284d43ca1
line wrap: on
line diff
--- a/src/events.c	Mon Aug 13 09:58:32 2007 +0200
+++ b/src/events.c	Mon Aug 13 09:59:05 2007 +0200
@@ -233,10 +233,10 @@
       return EQ (e1->event.process.process, e2->event.process.process);
 
     case timeout_event:
-      return (!NILP (Fequal (e1->event.timeout.function,
-			     e2->event.timeout.function)) &&
-	      !NILP (Fequal (e1->event.timeout.object,
-			     e2->event.timeout.object)));
+      return (internal_equal (e1->event.timeout.function,
+			      e2->event.timeout.function, 0) &&
+	      internal_equal (e1->event.timeout.object,
+			      e2->event.timeout.object, 0));
 
     case key_press_event:
       return (EQ (e1->event.key.keysym, e2->event.key.keysym) &&
@@ -253,16 +253,16 @@
 
     case misc_user_event:
     case eval_event:
-      return (!NILP (Fequal (e1->event.eval.function,
-			     e2->event.eval.function)) &&
-	      !NILP (Fequal (e1->event.eval.object,
-			     e2->event.eval.object)));
+      return (internal_equal (e1->event.eval.function,
+			      e2->event.eval.function, 0) &&
+	      internal_equal (e1->event.eval.object,
+			      e2->event.eval.object, 0));
 
     case magic_eval_event:
       return (e1->event.magic_eval.internal_function ==
 	      e2->event.magic_eval.internal_function &&
-	      !NILP (Fequal (e1->event.magic_eval.object,
-			     e2->event.magic_eval.object)));
+	      internal_equal (e1->event.magic_eval.object,
+			      e2->event.magic_eval.object, 0));
 
     case magic_event:
       {