From: Colin Walters <walters@gnu.org>
Date: Wed, 29 May 2002 18:58:38 +0000 (+0000)
Subject: Fix previous change (oops).
X-Git-Tag: ttn-vms-21-2-B4~14821
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2530ceaf86398db3086a46518bddf9bebe7fc35f;p=emacs.git

Fix previous change (oops).
---

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));
 }