# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1020746990 0
# Node ID 4e78ee207f403aac3fb79234384c766a65c714f7
# Parent  ec21f1e8ca97085c37a3acc5f96dc07114fa9124
(Fset_buffer_multibyte): Fix 8-bit char handling.

diff -r ec21f1e8ca97 -r 4e78ee207f40 src/buffer.c
--- a/src/buffer.c	Tue May 07 04:49:14 2002 +0000
+++ b/src/buffer.c	Tue May 07 04:49:50 2002 +0000
@@ -2089,7 +2089,7 @@
 	    p++, pos++;
 	  else if (CHAR_BYTE8_HEAD_P (*p))
 	    {
-	      c = STRING_CHAR (p, stop - pos);
+	      c = STRING_CHAR_AND_LENGTH (p, stop - pos, bytes);
 	      /* Delete all bytes for this 8-bit character but the
 		 last one, and change the last one to the charcter
 		 code.  */
@@ -2176,6 +2176,7 @@
 		zv += bytes;
 	      if (pos <= pt)
 		pt += bytes;
+	      pend = Z_ADDR;
 	      stop = Z;
 	    }
 	}