;;;
;; avoid bug of XEmacs
-(or (integerp (cdr (split-char ?a)))
+(or (integerp (car (cdr (split-char ?a))))
(defun split-char (char)
"Return list of charset and one or two position-codes of CHAR."
(let ((charset (char-charset char)))
"Return index of character succeeding CHAR whose index is INDEX."
`(1+ ,index))
+(defun-maybe char-length (char)
+ "Return indexing length of multi-byte form of CHAR."
+ 1)
+
;;; @ string
;;;
(defun-maybe string-to-int-list (str)
(mapcar #'char-int str))
+(defun-maybe string-to-char-list (str)
+ (mapcar #'identity str))
+
(defalias 'looking-at-as-unibyte 'looking-at)
;;; @ end
;;;
-(provide 'poem-xm)
+(require 'product)
+(product-provide (provide 'poem-xm) (require 'apel-ver))
;;; poem-xm.el ends here