From: tmorioka <tmorioka>
Date: Sat, 1 Mar 1997 02:07:00 +0000 (+0000)
Subject: (find-non-ascii-charset-region): New inline-function; copied from
X-Git-Tag: Hokutetsu-Ishikawa-new~216
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9584a99ebf7d08a3bba8a2160ec91ae389602ff6;p=elisp%2Fsemi.git

(find-non-ascii-charset-region): New inline-function; copied from
emu-e20.el.
---

diff --git a/eword-encode.el b/eword-encode.el
index 997c6e3..aa49186 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.10 $
+;; Version: $Revision: 0.11 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -35,12 +35,17 @@
   (delq 'ascii (find-charset-string string))
   )
 
+(defsubst find-non-ascii-charset-region (start end)
+  "Return a list of charsets except ascii in the region between START and END."
+  (delq 'ascii (find-charset-string (buffer-substring start end)))
+  )
+
 
 ;;; @ version
 ;;;
 
 (defconst eword-encode-RCS-ID
-  "$Id: eword-encode.el,v 0.10 1997-02-27 08:42:17 tmorioka Exp $")
+  "$Id: eword-encode.el,v 0.11 1997-03-01 02:07:00 tmorioka Exp $")
 (defconst eword-encode-version (get-version-string eword-encode-RCS-ID))