Mercurial > emacs

diff src/lread.c @ 1821:04fb1d3d6992

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
JimB's changes since January 18th
author Jim Blandy <jimb@redhat.com>
date Tue, 26 Jan 1993 01:58:16 +0000
parents 12c730b89ac8
children e31051f17b9d
line wrap: on
line diff
--- a/src/lread.c	Tue Jan 26 01:56:29 1993 +0000
+++ b/src/lread.c	Tue Jan 26 01:58:16 1993 +0000
@@ -203,7 +203,7 @@
     /* Only ASCII characters are acceptable.  */
     if (XTYPE (val) != Lisp_Int)
       {
-	unread_command_event = val;
+	unread_command_events = Fcons (val, Qnil);
 	error ("Object read was not a character");
       }
   }
@@ -1045,9 +1045,17 @@
 	  if (p1 != p)
 	    {
 	      while (p1 != p && (c = *p1) >= '0' && c <= '9') p1++;
+#ifdef LISP_FLOAT_TYPE
+	      /* Integers can have trailing decimal points.  */
+	      if (p1 < p && *p1 == '.') p1++;
+#endif
 	      if (p1 == p)
-		/* It is. */
+		/* It is an integer. */
 		{
+#ifdef LISP_FLOAT_TYPE
+		  if (p1[-1] == '.')
+		    p1[-1] = '\0';
+#endif
 		  XSET (val, Lisp_Int, atoi (read_buffer));
 		  return val;
 		}