Mercurial > mxe-octave

view src/readline-1-input.patch @ 4734:80461a9e516c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
override default xerbla with version from Octave * mingw-blas-1-xerbla.patch, blas.mk: Build default libxerbla lib. * mingw-lapack-1-xerbla.patch, lapack.mk: Use external libxerbla. * mingw-openblas-1-xerbla.patch, openblas.mk: Likewise. * src/qrupdate-1-fixes.patch: Likewise. * default-octave.mk: Also install libxerbla.dll as libxerbla-octave.dll.
author John W. Eaton <jwe@octave.org>
date Thu, 21 Jun 2018 01:32:10 -0400
parents 2cf09b449d88
children
line wrap: on
line source

diff -uNr a/input.c b/input.c
--- a/input.c	2010-05-30 18:33:01.000000000 -0400
+++ b/input.c	2013-04-17 23:50:34.759675631 -0400
@@ -466,7 +466,12 @@
 
 #if defined (__MINGW32__)
       if (isatty (fileno (stream)))
-	return (getch ());
+        {
+          int c = _getch ();
+          if (c == 0xe0)
+            rl_execute_next (_getch ());
+          return (c);
+        }
 #endif
       result = read (fileno (stream), &c, sizeof (unsigned char));