Mercurial > hg > xemacs-beta

comparison src/lread.c @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 6a378aca36af
children 7d55a9ba150c
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
1741 if (! (saw_a_backslash || uninterned_symbol)) 1741 if (! (saw_a_backslash || uninterned_symbol))
1742 { 1742 {
1743 /* If a token had any backslashes in it, it is disqualified from 1743 /* If a token had any backslashes in it, it is disqualified from
1744 being an integer or a float. This means that 123\456 is a 1744 being an integer or a float. This means that 123\456 is a
1745 symbol, as is \123 (which is the way (intern "123") prints). 1745 symbol, as is \123 (which is the way (intern "123") prints).
1746 Also, if token was preceeded by #:, it's always a symbol. 1746 Also, if token was preceded by #:, it's always a symbol.
1747 */ 1747 */
1748 char *p = read_ptr + len; 1748 char *p = read_ptr + len;
1749 char *p1 = read_ptr; 1749 char *p1 = read_ptr;
1750 1750
1751 if (*p1 == '+' || *p1 == '-') p1++; 1751 if (*p1 == '+' || *p1 == '-') p1++;