From: morioka <morioka>
Date: Sun, 25 Oct 1998 18:15:41 +0000 (+0000)
Subject: (characterp): New alias.
X-Git-Tag: apel-9_6~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d58d7314f627a87a242a23ee0eb7fe78cfcee062;p=elisp%2Fapel.git

(characterp): New alias.
(char-octet): New function.
---

diff --git a/poem.el b/poem.el
index 70d08cc..74481b9 100644
--- a/poem.el
+++ b/poem.el
@@ -70,8 +70,19 @@ If STRING is multibyte, the result is STRING itself.
 
 (defalias-maybe 'int-char 'identity)
 
+(defalias-maybe 'characterp 'integerp)
+
 (defalias-maybe 'char-or-char-int-p 'integerp)
 
+(defun-maybe char-octet (ch &optional n)
+  "Return the octet numbered N (should be 0 or 1) of char CH.
+N defaults to 0 if omitted. [XEmacs-mule emulating function]""
+  (or (nth (if n
+	       1
+	     (1+ n))
+	   (split-char ch))
+      0))
+
 
 ;;; @ end
 ;;;