# HG changeset patch
# User Jaroslav Hajek <highegg@gmail.com>
# Date 1262849501 -3600
# Node ID 897e62651c0adc8bc682c30a406b5ef69806e4e1
# Parent  c670c8be7f938bb75599f0feda0496250d231b08
correctly handle interrupts in pause()

diff --git a/src/ChangeLog b/src/ChangeLog
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2010-01-07  Jaroslav Hajek  <highegg@gmail.com>
+
+	* utils.cc (octave_sleep (double)): Add OCTAVE_QUIT.
+
 2010-01-06  Jaroslav Hajek  <highegg@gmail.com>
 
 	* unwind_protect.h, unwind_protect.cc (unwind_protect): Rewrite.
diff --git a/src/utils.cc b/src/utils.cc
--- a/src/utils.cc
+++ b/src/utils.cc
@@ -1344,6 +1344,8 @@
       // defined in cutils.c.
       octave_sleep (sec);
       octave_usleep (usec);
+
+      OCTAVE_QUIT;
     }
 }