From 9584a99ebf7d08a3bba8a2160ec91ae389602ff6 Mon Sep 17 00:00:00 2001 From: tmorioka Date: Sat, 1 Mar 1997 02:07:00 +0000 Subject: [PATCH] (find-non-ascii-charset-region): New inline-function; copied from emu-e20.el. --- eword-encode.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) 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 -;; 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)) -- 1.7.10.4