Mercurial > mxe-octave
view src/readline-1-input.patch @ 3421:7e0b4087cd58
Add octave forge tsa package
* Makefile.in: Add of-tsa.
* build_packages.m: Add install of tsa-4.2.7.tar.gz
* dist-files: Add of-tsa.mk.
* index.html: Added of-tsa-package.
* src/of-tsa.mk: New file.
* src/libgomp.mk: Install to HOST_PREFIX
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Mon, 13 Jan 2014 21:28:53 -0500 |
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));