From d1c56b99e0f1ff5766009b53e8f067636b0cb950 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Fri, 17 Apr 1998 02:22:34 +0000
Subject: [PATCH] (char-next-index): Fixed.

---
 emu-e20_2.el  |    2 +-
 emu-nemacs.el |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/emu-e20_2.el b/emu-e20_2.el
index d713712..ca33328 100644
--- a/emu-e20_2.el
+++ b/emu-e20_2.el
@@ -45,7 +45,7 @@ but the contents viewed as characters do change."
 
 (defmacro char-next-index (char index)
   "Return index of character succeeding CHAR whose index is INDEX."
-  `(+ ,index (char-bytes char)))
+  `(+ ,index (char-bytes ,char)))
 
 
 ;;; @ string
diff --git a/emu-nemacs.el b/emu-nemacs.el
index 91ee9d5..d5a3b4d 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -339,7 +339,7 @@ find-file-hooks, etc.
 
 (defmacro char-next-index (char index)
   "Return index of character succeeding CHAR whose index is INDEX."
-  (` (1+ index)))
+  (` (+ (, index) (char-bytes (, char)))))
 
 
 ;;; @ string
-- 
1.7.10.4