This commit was generated by cvs2svn to compensate for changes in r279,

[elisp/apel.git] / emu-nemacs.el

diff --git a/emu-nemacs.el b/emu-nemacs.el
index 215a1ca..77c8fc1 100644 (file)
--- 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
 ;;;