--- ../iiimecf-0.75-orig/lisp/iiimcf.el	2007-12-09 08:54:54 +0900
+++ lisp/iiimcf.el	2008-05-18 14:12:56 +0900
@@ -1459,7 +1459,7 @@
     (while (and (< i (length str))
 		(< 0 pos))
       (if (< ?\xffff (char-to-ucs (aref str i)))
-	  (setq pos (- pos 2))
+	  (setq pos (- pos 1))  ;Emacs22+ATOKX3では不要？
 	(setq pos (- pos 1)))
       (setq i (1+ i)))
     (if (/= pos 0) (error "invalid pos (larger than string length or at the surrogate border)."))