Mercurial > mxe-octave

view src/readline-1-paste.patch @ 3959:6303de54ff1b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
qt: add build of devel mingw tools moc, rcc, uic, lrelease for windows * src/qt.mk: add build of moc,release, uic, rcc when ENABLE_DEVEL_TOOL set for cross mingw * src/qt-2-shared-tools-fixes.patch: new file * dist-files.mk: add qt-2-shared-tools-fixes.patch
author John D
date Sun, 07 Jun 2015 22:13:05 -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');