tm 7.12.

diff --git a/Makefile b/Makefile
index d34fb77..b56482f 100644 (file)
--- 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 (file)
--- 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)