From: morioka <morioka>
Date: Mon, 9 Mar 1998 10:58:53 +0000 (+0000)
Subject: tm 7.12.
X-Git-Tag: tm7_12~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=96f7039fb24f1ae958b69f485f5fda733021fe8b;p=elisp%2Fapel.git

tm 7.12.
---

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)