From 5c2088368fe2096934959338048ef66b256f69fe Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 12:03:52 +0000 Subject: [PATCH] tm 7.30. --- Makefile | 2 +- emu-nemacs.el | 10 +++++++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/Makefile b/Makefile index d480dd2..40036d4 100644 --- a/Makefile +++ b/Makefile @@ -19,7 +19,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \ tl/Changes* -TARFILE = tl-7.02.tar +TARFILE = tl-7.03.tar elc: diff --git a/emu-nemacs.el b/emu-nemacs.el index 215a1ca..77c8fc1 100644 --- a/emu-nemacs.el +++ b/emu-nemacs.el @@ -5,8 +5,9 @@ ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko ;;; ;;; Author: MORIOKA Tomohiko +;;; modified by KOBAYASHI Shuhei ;;; Version: -;;; $Id: emu-nemacs.el,v 7.1 1995/10/11 11:49:55 morioka Exp $ +;;; $Id: emu-nemacs.el,v 7.3 1995/12/06 08:02:32 morioka Exp $ ;;; Keywords: emulation, compatibility, NEmacs, Mule ;;; ;;; This file is part of tl and tm (Tools for MIME). @@ -52,6 +53,13 @@ else returns nil. [emu-nemacs.el; Mule emulating function]" (convert-string-kanji-code str ic oc) str)) +(defun code-convert-region (beg end ic oc) + "Convert code of the text between BEGIN and END from SOURCE +to TARGET. On successful conversion returns t, +else returns nil. [emu-nemacs.el; Mule emulating function]" + (if (not (eq ic oc)) + (convert-region-kanji-code beg end ic oc))) + ;;; @ character and string ;;; -- 1.7.10.4