From 6d2b9b27d80425adca59b7a79805e4d0aa204100 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Tue, 20 Aug 2002 07:21:58 +0000
Subject: [PATCH] (Fexpand_abbrev): Fix for the multibyte case.

---
 src/abbrev.c | 27 ++++++++++++++++++++-------
 1 file changed, 20 insertions(+), 7 deletions(-)

diff --git a/src/abbrev.c b/src/abbrev.c
index fc3f304d3fb..64989b40553 100644
--- a/src/abbrev.c
+++ b/src/abbrev.c
@@ -237,12 +237,13 @@ Returns the abbrev symbol, if expansion took place.  */)
 {
   register char *buffer, *p;
   int wordstart, wordend;
-  register int wordstart_byte, wordend_byte, idx;
+  register int wordstart_byte, wordend_byte, idx, idx_byte;
   int whitecnt;
   int uccount = 0, lccount = 0;
   register Lisp_Object sym;
   Lisp_Object expansion, hook, tem;
   Lisp_Object value;
+  int multibyte = ! NILP (current_buffer->enable_multibyte_characters);
 
   value = Qnil;
 
@@ -288,26 +289,38 @@ Returns the abbrev symbol, if expansion took place.  */)
 
   p = buffer = (char *) alloca (wordend_byte - wordstart_byte);
 
-  for (idx = wordstart_byte; idx < wordend_byte; idx++)
+  for (idx = wordstart, idx_byte = wordstart_byte; idx < wordend;)
     {
-      /* ??? This loop needs to go by characters!  */
-      register int c = FETCH_BYTE (idx);
+      register int c;
+
+      FETCH_CHAR_ADVANCE (c, idx, idx_byte);
+      if (! multibyte)
+	{
+	  MAKE_CHAR_MULTIBYTE (c);
+	}
+
       if (UPPERCASEP (c))
 	c = DOWNCASE (c), uccount++;
       else if (! NOCASEP (c))
 	lccount++;
-      *p++ = c;
+      if (multibyte)
+	CHAR_STRING_ADVANCE (c, p);
+      else
+	{
+	  MAKE_CHAR_UNIBYTE (c);
+	  *p++ = c;
+	}
     }
 
   if (VECTORP (current_buffer->abbrev_table))
     sym = oblookup (current_buffer->abbrev_table, buffer,
-		    wordend - wordstart, wordend_byte - wordstart_byte);
+		    wordend - wordstart, p - buffer);
   else
     XSETFASTINT (sym, 0);
 
   if (INTEGERP (sym) || NILP (SYMBOL_VALUE (sym)))
     sym = oblookup (Vglobal_abbrev_table, buffer,
-		    wordend - wordstart, wordend_byte - wordstart_byte);
+		    wordend - wordstart, p - buffer);
   if (INTEGERP (sym) || NILP (SYMBOL_VALUE (sym)))
     return value;
 
-- 
2.11.4.GIT