Mercurial > mxe-octave
view src/readline-1-paste.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 | 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');