Mercurial > hg > xemacs-beta

diff src/event-msw.c @ 233:52952cbfc5b5 r20-5b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b15
author cvs
date Mon, 13 Aug 2007 10:14:14 +0200
parents 557eaa0339bf
children 41f2f0e326e9
line wrap: on
line diff
--- a/src/event-msw.c	Mon Aug 13 10:13:49 2007 +0200
+++ b/src/event-msw.c	Mon Aug 13 10:14:14 2007 +0200
@@ -391,8 +391,8 @@
   Lisp_Object emacs_event = Fmake_event (Qnil, Qnil);
   struct Lisp_Event *event = XEVENT (emacs_event);
 
-  KillTimer (NULL, id_timer);
-  --mswindows_pending_timers_count;
+  if (KillTimer (NULL, id_timer))
+    --mswindows_pending_timers_count;
 
   event->channel = Qnil;
   event->timestamp = dwtime;
@@ -560,8 +560,8 @@
   struct Lisp_Event match_against;
   Lisp_Object emacs_event;
 
-  KillTimer (NULL, id);
-  --mswindows_pending_timers_count;
+  if (KillTimer (NULL, id))
+    --mswindows_pending_timers_count;
 
   /* If there is a dispatch event generated by this
      timeout in the queue, we have to remove it too. */