projects / elisp / apel.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
update.
[elisp/apel.git] / emu-nemacs.el
diff --git a/emu-nemacs.el b/emu-nemacs.el
index 91ee9d5..d5a3b4d 100644 (file)
--- 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