Mercurial > hg > xemacs-beta

comparison src/lread.c @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents 859a2309aef8
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
1643 if (! (saw_a_backslash || uninterned_symbol)) 1643 if (! (saw_a_backslash || uninterned_symbol))
1644 { 1644 {
1645 /* If a token had any backslashes in it, it is disqualified from 1645 /* If a token had any backslashes in it, it is disqualified from
1646 being an integer or a float. This means that 123\456 is a 1646 being an integer or a float. This means that 123\456 is a
1647 symbol, as is \123 (which is the way (intern "123") prints). 1647 symbol, as is \123 (which is the way (intern "123") prints).
1648 Also, if token was preceeded by #:, it's always a symbol. 1648 Also, if token was preceded by #:, it's always a symbol.
1649 */ 1649 */
1650 char *p = read_ptr + len; 1650 char *p = read_ptr + len;
1651 char *p1 = read_ptr; 1651 char *p1 = read_ptr;
1652 1652
1653 if (*p1 == '+' || *p1 == '-') p1++; 1653 if (*p1 == '+' || *p1 == '-') p1++;