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 0f28d42..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 6.1 1995/09/21 00:07:24 morioka Exp morioka $
+;;;    $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
 ;;;
@@ -86,6 +94,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)