;;;
;; 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)))
;;; @ end
;;;
-(provide 'poem-xm)
+(require 'product)
+(product-provide (provide 'poem-xm) (require 'apel-ver))
;;; poem-xm.el ends here