From: morioka <morioka>
Date: Sun, 25 Oct 1998 18:41:05 +0000 (+0000)
Subject: (char-octet): fixed.
X-Git-Tag: apel-9_6~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d47156cb3d75b34c2ad798eae78e525f963d66f6;p=elisp%2Fapel.git

(char-octet): fixed.
---

diff --git a/poem.el b/poem.el
index 63f670f..443b576 100644
--- 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))