Mercurial > mxe-octave
view src/readline-1-paste.patch @ 3960:bd51e2f81020
mingw: add perl msys module for devel tools
* index.html: add msys-perl, msys-libcrypt
* src/msys-perl.mk: new file
* src/src-msys-perl.mk: new file
* src/msys-libcrypt.mk: new file
* src/src-msys-libcrypt.mk: new file
* Makefile.in: add msys-perl, msys-libcrypt to installer in cross mingw
* dist-files.mk: add libcrypy and perl files
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Mon, 08 Jun 2015 19:21:00 -0400 |
parents | 9e62095edc58 |
children |
line wrap: on
line source
diff -u a/input.c b/readline-6.2/input.c --- a/input.c 2010-05-30 18:33:01.000000000 -0400 +++ b/input.c 2012-06-25 21:08:42.000000000 -0400 @@ -410,5 +412,5 @@ rl_read_key () { - int c; + int c, r; rl_key_sequence_length++; @@ -430,12 +432,16 @@ while (rl_event_hook) { - if (rl_gather_tyi () < 0) /* XXX - EIO */ + if (rl_get_char (&c) != 0) + break; + + if ((r = rl_gather_tyi ()) < 0) /* XXX - EIO */ { rl_done = 1; return ('\n'); } + else if (r == 1) /* read something */ + continue; + RL_CHECK_SIGNALS (); - if (rl_get_char (&c) != 0) - break; if (rl_done) /* XXX - experimental */ return ('\n');