changeset: 4439:f4eb31866c3830c131d730ed67c2aa8b462f80a9
tag: tip
user: Mike Sperber <sperber(a)deinprogramm.de>
date: Sat Mar 15 12:21:11 2008 +0100
files: src/ChangeLog src/lread.c
description:
Fix reader crash.
2008-03-15 Michael Sperber <mike(a)xemacs.org>
* lread.c (read1): Signal an error on ?\<newline>, thus preventing
an assertion failure higher up.
diff -r 2785829fe37c25a05d7dc850cf9767fcf8f04786 -r
f4eb31866c3830c131d730ed67c2aa8b462f80a9 src/ChangeLog
--- a/src/ChangeLog Wed Mar 12 19:37:49 2008 +0100
+++ b/src/ChangeLog Sat Mar 15 12:21:11 2008 +0100
@@ -1,3 +1,8 @@ 2008-03-11 Stephen J. Turnbull <stephe
+2008-03-15 Michael Sperber <mike(a)xemacs.org>
+
+ * lread.c (read1): Signal an error on ?\<newline>, thus preventing
+ an assertion failure higher up.
+
2008-03-11 Stephen J. Turnbull <stephen(a)xemacs.org>
* specifier.c (CHECK_INSTANCE_ENTRY): Fix typo in comment.
diff -r 2785829fe37c25a05d7dc850cf9767fcf8f04786 -r
f4eb31866c3830c131d730ed67c2aa8b462f80a9 src/lread.c
--- a/src/lread.c Wed Mar 12 19:37:49 2008 +0100
+++ b/src/lread.c Sat Mar 15 12:21:11 2008 +0100
@@ -2763,6 +2763,8 @@ retry:
if (c == '\\')
c = read_escape (readcharfun);
+ if (c < 0)
+ return Fsignal (Qinvalid_read_syntax, list1 (READCHARFUN_MAYBE (readcharfun)));
return make_char (c);
}
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches