+(defalias-maybe 'characterp
+ (cond
+ ((fboundp 'char-valid-p) 'char-valid-p)
+ (t 'integerp)))
+
+(defalias-maybe 'char-or-char-int-p
+ (cond
+ ((fboundp 'char-valid-p) 'char-valid-p)
+ (t '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+ n)
+ 1)
+ (split-char ch))
+ 0))