From 04bfda91ff75cdd3b8d38817cbc0eb4359229a28 Mon Sep 17 00:00:00 2001 From: morioka Date: Sat, 21 Jun 1997 13:47:35 +0000 Subject: [PATCH] `tm-eword::char-type' -> `eword-encode-char-type'. --- eword-encode.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index b714a58..8c110e3 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 -;; 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))) ) -- 1.7.10.4