From: tmorioka <tmorioka>
Date: Sat, 1 Mar 1997 04:09:16 +0000 (+0000)
Subject: Use `char-bytes' instead of `char-length'.
X-Git-Tag: Hokutetsu-Ishikawa-new~210
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=44f3c66aa39d3c6f89f02dfbfc20848dff1b17b7;p=elisp%2Fsemi.git

Use `char-bytes' instead of `char-length'.
---

diff --git a/eword-encode.el b/eword-encode.el
index aa49186..222d409 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Revision: 0.11 $
+;; Version: $Revision: 0.12 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -45,7 +45,7 @@
 ;;;
 
 (defconst eword-encode-RCS-ID
-  "$Id: eword-encode.el,v 0.11 1997-03-01 02:07:00 tmorioka Exp $")
+  "$Id: eword-encode.el,v 0.12 1997-03-01 04:09:16 tmorioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 
@@ -126,14 +126,14 @@ when Subject field is encoded by `eword-encode-header'.")
 (defun tm-eword::parse-lc-word (str)
   (let* ((chr (sref str 0))
 	 (lc (tm-eword::char-type chr))
-	 (i (char-length chr))
+	 (i (char-bytes chr))
 	 (len (length str))
 	 )
     (while (and (< i len)
 		(setq chr (sref str i))
 		(eq lc (tm-eword::char-type chr))
 		)
-      (setq i (+ i (char-length chr)))
+      (setq i (+ i (char-bytes chr)))
       )
     (cons (cons lc (substring str 0 i)) (substring str i))
     ))
@@ -318,7 +318,7 @@ when Subject field is encoded by `eword-encode-header'.")
 		    (str "") nstr)
 	       (while (and (< p len)
 			   (progn
-			     (setq np (+ p (char-length (sref string p))))
+			     (setq np (+ p (char-bytes (sref string p))))
 			     (setq nstr (substring string 0 np))
 			     (setq ret (tm-eword::encoded-word-length
 					(cons nstr (cdr rword))