;;; emu-nemacs.el --- Mule 2 emulation module for NEmacs
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;; Copyright (C) 1994 .. 1996 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.0 1995/10/05 12:16:34 morioka Exp $
+;;; $Id: emu-nemacs.el,v 7.4 1996/01/25 02:11:31 morioka Exp $
;;; Keywords: emulation, compatibility, NEmacs, Mule
;;;
-;;; This file is part of tl and tm (Tools for MIME).
+;;; This file is part of tl (Tiny Library).
;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with This program. If not, write to the Free Software
+;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
(require 'emu-18)
;;;
(defconst *junet* 2)
+(defconst *ctext* 2)
(defconst *internal* 3)
(defconst *euc-japan* 3)
(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
;;;
(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)
;;;
(provide 'emu-nemacs)
+
+;;; emu-nemacs.el ends here