diff src/md5.c @ 382:064ab7fed2e0 r21-2-6

Import from CVS: tag r21-2-6
author cvs
date Mon, 13 Aug 2007 11:07:39 +0200
parents 8626e4521993
children 74fd4e045ea6
line wrap: on
line diff
--- a/src/md5.c	Mon Aug 13 11:07:11 2007 +0200
+++ b/src/md5.c	Mon Aug 13 11:07:39 2007 +0200
@@ -563,7 +563,7 @@
       CHECK_STRING (object);
       get_string_range_byte (object, start, end, &bstart, &bend,
 			     GB_HISTORICAL_STRING_BEHAVIOR);
-      instream = make_lisp_string_input_stream (object, bstart, bend);
+      instream = make_lisp_string_input_stream (object, bstart, bend - bstart);
     }
   GCPRO1 (instream);