Mercurial > emacs

comparison src/lread.c @ 826:e9b9a1cff2c9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Tue, 21 Jul 1992 04:09:28 +0000
parents 465cf9f9153b
children 9620f7edf04d
comparison
equal deleted inserted replaced
825:f3eb45ffe06d 826:e9b9a1cff2c9
1047 while (isdigit (*cp)) 1047 while (isdigit (*cp))
1048 cp++; 1048 cp++;
1049 } 1049 }
1050 return (*cp == 0 1050 return (*cp == 0
1051 && (state == (LEAD_INT|DOT_CHAR|TRAIL_INT) 1051 && (state == (LEAD_INT|DOT_CHAR|TRAIL_INT)
1052 || state == (DOT_CHAR|TRAIL_INT)
1052 || state == (LEAD_INT|E_CHAR|EXP_INT) 1053 || state == (LEAD_INT|E_CHAR|EXP_INT)
1053 || state == (LEAD_INT|DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT))); 1054 || state == (LEAD_INT|DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT)
1055 || state == (DOT_CHAR|TRAIL_INT|E_CHAR|EXP_INT)));
1054 } 1056 }
1055 #endif /* LISP_FLOAT_TYPE */ 1057 #endif /* LISP_FLOAT_TYPE */
1056 1058
1057 static Lisp_Object 1059 static Lisp_Object
1058 read_vector (readcharfun) 1060 read_vector (readcharfun)