tm 6.20

[elisp/tm.git] / tm-nemacs.el

diff --git a/tm-nemacs.el b/tm-nemacs.el
index b072053..b95ec98 100644 (file)
--- a/tm-nemacs.el
+++ b/tm-nemacs.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tm-nemacs.el,v 5.0 1994/10/19 23:49:23 morioka Exp $
+;;; $Id: tm-nemacs.el,v 5.1 1994/10/26 15:08:12 morioka Exp $
 ;;;
 
 (provide 'tm-nemacs)
@@ -54,3 +54,11 @@
        ds
       (concat "=?" charset "?" encoding "?" str "?="))
     ))
+
+(defun mime/code-convert-region-to-emacs (beg end charset)
+  (if (stringp charset)
+      (progn
+       (setq charset (upcase charset))
+       (if (string= charset "ISO-2022-JP")
+           (convert-region-kanji-code beg end 2 3)
+         ))))