From 39ded5ab5e06343147b575a3e0f71a713b5ee6a2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 25 Jun 1999 03:44:18 +0000 Subject: [PATCH] (split-char): Don't redefine if the `car' of the `cdr' of the return value of the original `split-char' with the arg `?a'. --- poem-xm.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 1.7.10.4