From 96f7039fb24f1ae958b69f485f5fda733021fe8b Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Mon, 9 Mar 1998 10:58:53 +0000
Subject: [PATCH] tm 7.12.

---
 Makefile      |    2 +-
 emu-nemacs.el |   17 ++++++++++++++++-
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index d34fb77..b56482f 100644
--- a/Makefile
+++ b/Makefile
@@ -18,7 +18,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp
 
 FILES	= tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi
 
-TARFILE = tl-7.00.1.tar
+TARFILE = tl-7.01.tar
 
 
 elc:
diff --git a/emu-nemacs.el b/emu-nemacs.el
index 6b3fcfa..215a1ca 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-nemacs.el,v 7.0 1995/10/05 12:16:34 morioka Exp $
+;;;	$Id: emu-nemacs.el,v 7.1 1995/10/11 11:49:55 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule
 ;;;
 ;;; This file is part of tl and tm (Tools for MIME).
@@ -86,6 +86,21 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
     (reverse dest)
     ))
 
+(defun find-charset-string (str)
+  (if (string-match "[\200-\377]" str)
+      (list lc-jp)
+    ))
+
+(defun find-charset-region (start end)
+  (if (save-excursion
+	(save-restriction
+	  (narrow-to-region start end)
+	  (goto-char start)
+	  (re-search-forward "[\200-\377]" nil t)
+	  ))
+      (list lc-jp)
+    ))
+
 (defun check-ASCII-string (str)
   (let ((i 0)
 	len)
-- 
1.7.10.4