From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 29 Feb 2000 09:31:42 +0000 (+0000)
Subject: (cancel_atimer): Handle canceling an atimer when
X-Git-Tag: emacs-pretest-21.0.90~4849
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=948709770a216c647187999070dbb327f8832269;p=emacs.git

(cancel_atimer): Handle canceling an atimer when
some timers are stopped.
---

diff --git a/src/atimer.c b/src/atimer.c
index 279c5f9eba1..82f4180088a 100644
--- a/src/atimer.c
+++ b/src/atimer.c
@@ -169,29 +169,38 @@ cancel_atimer (timer)
      struct atimer *timer;
 {
   struct atimer *t, *prev;
-
-  /* May not be called when some timers are stopped.  */
-  if (stopped_atimers)
-    abort ();
+  struct atimer **list;
 
   BLOCK_ATIMERS;
 
-  /* See if TIMER is active.  */
-  for (t = atimers, prev = 0; t && t != timer; t = t->next)
-    ;
-
-  /* If it is, take it off the list of active timers, put in on the
-     free-list.  We don't bother to arrange for setting a different
-     alarm time, since a too early one doesn't hurt.  */
-  if (t)
+  /* If we've stopped all other timers except TIMER, we can
+     just reset the list of active atimers to null.  */
+  if (stopped_atimers && timer == atimers)
     {
-      if (prev)
-	prev->next = t->next;
-      else
-	atimers = t->next;
+      timer->next = free_atimers;
+      free_atimers = timer;
+      atimers = NULL;
+    }
+  else
+    {
+      /* See if TIMER is active or stopped.  */
+      list = stopped_atimers ? &stopped_atimers : &atimers;
+      for (t = *list, prev = 0; t && t != timer; t = t->next)
+	;
 
-      t->next = free_atimers;
-      free_atimers = t;
+      /* If it is, take it off the list of its list, and put in on the
+	 free-list.  We don't bother to arrange for setting a
+	 different alarm time, since a too early one doesn't hurt.  */
+      if (t)
+	{
+	  if (prev)
+	    prev->next = t->next;
+	  else
+	    *list = t->next;
+	  
+	  t->next = free_atimers;
+	  free_atimers = t;
+	}
     }
 
   UNBLOCK_ATIMERS;