From f514b6d1370cc43ee8aca5d91f2cc8583841f203 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 5 Jun 1998 00:34:00 +0000 Subject: [PATCH] (mule-caesar-region): Use '(cdr (split-char ...)) instead of `char-to-octet-list'; abolish function `char-to-octet-list'. --- mule-caesar.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) 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)))) -- 1.7.10.4