update.

[elisp/apel.git] / emu-mule.el

diff --git a/emu-mule.el b/emu-mule.el
index 63987b1..63be74e 100644 (file)
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -319,7 +319,7 @@ It must be symbol.")
 
 (defmacro char-next-index (char index)
   "Return index of character succeeding CHAR whose index is INDEX."
-  (` (+ index (char-bytes char))))
+  (` (+ (, index) (char-bytes (, char)))))
 
 ;;; @@ obsoleted aliases
 ;;;