From: Gerd Moellmann <gerd@gnu.org>
Date: Sat, 18 Mar 2000 01:04:28 +0000 (+0000)
Subject: (read_integer): Unread the last char not consumed.
X-Git-Tag: emacs-pretest-21.0.90~4605
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b632fa48b14ac7a968b9ca77ee1c0ef64d50729d;p=emacs.git

(read_integer): Unread the last char not consumed.
---

diff --git a/src/lread.c b/src/lread.c
index 14c6f608b86..7e4f3d2f109 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1637,7 +1637,10 @@ read_integer (readcharfun, radix)
 	  else if (c >= 'A' && c <= 'Z')
 	    digit = c - 'A' + 10;
 	  else
-	    break;
+	    {
+	      UNREAD (c);
+	      break;
+	    }
 
 	  if (digit < 0 || digit >= radix)
 	    invalid_p = 1;