(char-octet): fixed.

diff --git a/poem.el b/poem.el
index 63f670f..443b576 100644 (file)
--- a/poem.el
+++ b/poem.el
@@ -78,8 +78,8 @@ If STRING is multibyte, the result is STRING itself.
   "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))
+              (1+ n)
+            1)
           (split-char ch))
       0))