(characterp): New alias.

(char-octet): New function.

diff --git a/poem.el b/poem.el
index 70d08cc..74481b9 100644 (file)
--- 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
 ;;;