From: yamaoka <yamaoka>
Date: Fri, 25 Jun 1999 03:44:18 +0000 (+0000)
Subject: (split-char): Don't redefine if the `car' of the `cdr' of the return value of
X-Git-Tag: apel-9_20~7
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=39ded5ab5e06343147b575a3e0f71a713b5ee6a2;p=elisp%2Fapel.git

(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
--- 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)))