From 4fb468dedfa66eec17eb9ddb48ebe44dfa7913ac Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 5 Jun 1998 12:08:51 +0000 Subject: [PATCH] Move `split-char' check and repair code to emu-x20.el; require 'emu. --- mule-caesar.el | 21 +-------------------- 1 file changed, 1 insertion(+), 20 deletions(-) diff --git a/mule-caesar.el b/mule-caesar.el index 06020d0..7cf9734 100644 --- a/mule-caesar.el +++ b/mule-caesar.el @@ -24,26 +24,7 @@ ;;; Code: -;; avoid bug of XEmacs -(or (integerp (cdr (split-char ?a))) - (defun split-char (char) - "Return list of charset and one or two position-codes of CHAR." - (let ((charset (char-charset char))) - (if (eq charset 'ascii) - (list charset (char-int char)) - (let ((i 0) - (len (charset-dimension charset)) - (code (if (integerp char) - char - (char-int char))) - dest) - (while (< i len) - (setq dest (cons (logand code 127) dest) - code (lsh code -7) - i (1+ i))) - (cons charset dest) - )))) - ) +(require 'emu) (defun mule-caesar-region (start end &optional stride-ascii) "Caesar rotation of current region. -- 1.7.10.4