X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emu-nemacs.el;h=77c8fc14a9eb27375b95f95045a8290160bea2e1;hb=ddcb2b1c89678eedc3e5b25fc08863a804c2668f;hp=215a1cae71488a40783e03b0751e1dd81019ab71;hpb=96f7039fb24f1ae958b69f485f5fda733021fe8b;p=elisp%2Fapel.git

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 <morioka@jaist.ac.jp>
+;;; modified by KOBAYASHI Shuhei <shuhei@cmpt01.phys.tohoku.ac.jp>
 ;;; 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
 ;;;