`tm-eword::char-type' -> `eword-encode-char-type'.

[elisp/semi.git] / eword-encode.el

diff --git a/eword-encode.el b/eword-encode.el
index b714a58..8c110e3 100644 (file)
--- 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.18 $
+;; Version: $Revision: 0.19 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -36,7 +36,7 @@
 ;;;
 
 (defconst eword-encode-RCS-ID
-  "$Id: eword-encode.el,v 0.18 1997-06-21 09:00:09 morioka Exp $")
+  "$Id: eword-encode.el,v 0.19 1997-06-21 13:47:35 morioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))
 
 
@@ -113,21 +113,21 @@ MODE is allows `text', `comment', `phrase' or nil.  Default value is
 ;;; @ leading char
 ;;;
 
-(defun tm-eword::char-type (chr)
-  (if (or (= chr ? )(= chr ?\t))
+(defsubst eword-encode-char-type (character)
+  (if (or (eq character ? )(eq character ?\t))
       nil
-    (char-charset chr)
+    (char-charset character)
     ))
 
 (defun tm-eword::parse-lc-word (str)
   (let* ((chr (sref str 0))
-        (lc (tm-eword::char-type chr))
+        (lc (eword-encode-char-type chr))
         (i (char-bytes chr))
         (len (length str))
         )
     (while (and (< i len)
                (setq chr (sref str i))
-               (eq lc (tm-eword::char-type chr))
+               (eq lc (eword-encode-char-type chr))
                )
       (setq i (+ i (char-bytes chr)))
       )