Mercurial > hg > octave-lojdl

diff src/sysdep.cc @ 3234:be8e0ba13644

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-01-29 03:52:30 by jwe]
author jwe
date Fri, 29 Jan 1999 03:52:33 +0000
parents 38684be52a3e
children 68259f410026
line wrap: on
line diff
--- a/src/sysdep.cc
+++ b/src/sysdep.cc
@@ -75,6 +75,7 @@
 #include "input.h"
 #include "oct-obj.h"
 #include "ov.h"
+#include "pager.h"
 #include "sysdep.h"
 #include "toplev.h"
 #include "utils.h"
@@ -414,7 +415,10 @@
 	  if (xisnan (dval))
 	    warning ("pause: NaN is an invalid delay");
 	  else if (xisinf (dval))
-	    kbhit ();
+	    {
+	      flush_octave_stdout ();
+	      kbhit ();
+	    }
 	  else
 	    {
 	      int delay = NINT (dval);
@@ -424,7 +428,10 @@
 	}
     }
   else
-    kbhit ();
+    {
+      flush_octave_stdout ();
+      kbhit ();
+    }
 
   return retval;
 }