comparison src/lread.c @ 4450:ac6231e0c1df

Automated merge with file:/Sources/xemacs-21.5-checked-out
author Aidan Kehoe <kehoea@parhasard.net>
date Wed, 07 May 2008 21:21:08 +0200
parents fd8a9a4d81d9 f4eb31866c38
children 7869173584fc
comparison
equal deleted inserted replaced
4449:13ce402e1736 4450:ac6231e0c1df
2780 if (c < 0) 2780 if (c < 0)
2781 return Fsignal (Qend_of_file, list1 (READCHARFUN_MAYBE (readcharfun))); 2781 return Fsignal (Qend_of_file, list1 (READCHARFUN_MAYBE (readcharfun)));
2782 2782
2783 if (c == '\\') 2783 if (c == '\\')
2784 c = read_escape (readcharfun); 2784 c = read_escape (readcharfun);
2785 if (c < 0)
2786 return Fsignal (Qinvalid_read_syntax, list1 (READCHARFUN_MAYBE (readcharfun)));
2785 return make_char (c); 2787 return make_char (c);
2786 } 2788 }
2787 2789
2788 case '\"': 2790 case '\"':
2789 /* String */ 2791 /* String */