From 2530ceaf86398db3086a46518bddf9bebe7fc35f Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Wed, 29 May 2002 18:58:38 +0000 Subject: [PATCH] Fix previous change (oops). --- src/lread.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/lread.c b/src/lread.c index 33e8db9c317..f3ae4c98970 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1480,8 +1480,10 @@ START and END optionally delimit a substring of STRING from which to read; (string, start, end) Lisp_Object string, start, end; { + Lisp_Object ret; CHECK_STRING (string); - Lisp_Object ret = read_internal_start (string, start, end); + /* read_internal_start sets read_from_string_index. */ + ret = read_internal_start (string, start, end); return Fcons (ret, make_number (read_from_string_index)); } -- 2.39.5