(split-char): Don't redefine if the `car' of the `cdr' of the return value of

the original `split-char' with the arg `?a'.

diff --git a/poem-xm.el b/poem-xm.el
index 3d00ce2..7f85b96 100644 (file)
--- a/poem-xm.el
+++ b/poem-xm.el
@@ -45,7 +45,7 @@ but the contents viewed as characters do change.
 ;;;
 
 ;; 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)))