From: morioka <morioka>
Date: Fri, 5 Jun 1998 00:34:00 +0000 (+0000)
Subject: (mule-caesar-region): Use '(cdr (split-char ...)) instead of
X-Git-Tag: apel-8_14~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f514b6d1370cc43ee8aca5d91f2cc8583841f203;p=elisp%2Fapel.git

(mule-caesar-region): Use '(cdr (split-char ...)) instead of
`char-to-octet-list'; abolish function `char-to-octet-list'.
---

diff --git a/mule-caesar.el b/mule-caesar.el
index d0269c0..06020d0 100644
--- a/mule-caesar.el
+++ b/mule-caesar.el
@@ -45,10 +45,6 @@
 	    ))))
     )
 
-(defun char-to-octet-list (character)
-  "Return list of octets in code table of graphic character set."
-  (cdr (split-char character)))
-
 (defun mule-caesar-region (start end &optional stride-ascii)
   "Caesar rotation of current region.
 Optional argument STRIDE-ASCII is rotation-size for Latin alphabet
@@ -94,7 +90,7 @@ for 96 or 96x96 graphic character set)."
 				       (+ octet stride)
 				     (- octet stride)
 				     )))
-				(char-to-octet-list chr))))
+				(cdr (split-char chr)))))
 	      (delete-char 1)
 	      (insert (make-char (char-charset chr)
 				 (car ret)(car (cdr ret))))