tm 7.48.1.

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

diff --git a/emu-nemacs.el b/emu-nemacs.el
index 215a1ca..d3911ff 100644 (file)
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -2,15 +2,31 @@
 ;;; emu-nemacs.el --- Mule 2 emulation module for NEmacs
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;; Copyright (C) 1993 .. 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.1 1995/10/11 11:49:55 morioka Exp $
+;;;    $Id: emu-nemacs.el,v 7.8 1996/03/14 16:25:39 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)
 
@@ -40,8 +56,11 @@
 ;;; @ coding-system
 ;;;
 
-(defconst *junet* 2)
-(defconst *internal* 3)
+(defconst *noconv*    0)
+(defconst *sjis*      1)
+(defconst *junet*     2)
+(defconst *ctext*     2)
+(defconst *internal*  3)
 (defconst *euc-japan* 3)
 
 (defun code-convert-string (str ic oc)
@@ -52,24 +71,46 @@ 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)))
+
+(defun code-detect-region (start end)
+  "Detect coding-system of the text in the region between START and END.
+\[emu-orig.el; Mule emulating function]"
+  (if (save-excursion
+       (save-restriction
+         (narrow-to-region start end)
+         (goto-char start)
+         (re-search-forward "[\200-\377]" nil t)
+         ))
+      *euc-japan*
+    ))
+
+(defun set-file-coding-system (coding-system &optional force)
+  (set-kanji-fileio-code coding-system)
+  )
+
 
 ;;; @ character and string
 ;;;
 
 (defun char-bytes (chr)
   "Return number of bytes CHAR will occupy in a buffer.
- [Mule compatible function in tm-nemacs]"
+\[Mule compatible function in tm-nemacs]"
   (if (< chr 128) 1 2))
 
 (defun char-width (chr)
   "Return number of columns CHAR will occupy when displayed.
- [Mule compatible function in tm-nemacs]"
+\[Mule compatible function in tm-nemacs]"
   (if (< chr 128) 1 2))
 
-;; by mol. 1993/9/26
 (defun string-width (str)
   "Return number of columns STRING will occupy.
- [Mule compatible function in tm-nemacs]"
+\[Mule compatible function in tm-nemacs]"
   (length str))
 
 (defun string-to-char-list (str)
@@ -87,11 +128,15 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
     ))
 
 (defun find-charset-string (str)
+  "Return a list of leading-chars in the string.
+\[emu-nemacs.el; Mule emulating function]"
   (if (string-match "[\200-\377]" str)
       (list lc-jp)
     ))
 
 (defun find-charset-region (start end)
+  "Return a list of leading-chars in the region between START and END.
+\[emu-nemacs.el; Mule emulating function]"
   (if (save-excursion
        (save-restriction
          (narrow-to-region start end)
@@ -113,6 +158,37 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
        )
       str)))
 
+;;; Imported from Mule-2.3
+(defun truncate-string (str width &optional start-column)
+  "Truncate STR to fit in WIDTH columns.
+Optional non-nil arg START-COLUMN specifies the starting column.
+\[emu-mule.el; Mule 2.3 emulating function]"
+  (or start-column
+      (setq start-column 0))
+  (let ((max-width (string-width str))
+       (len (length str))
+       (from 0)
+       (column 0)
+       to-prev to ch)
+    (if (>= width max-width)
+       (setq width max-width))
+    (if (>= start-column width)
+       ""
+      (while (< column start-column)
+       (setq ch (aref str from)
+             column (+ column (char-width ch))
+             from (+ from (char-bytes ch))))
+      (if (< width max-width)
+         (progn
+           (setq to from)
+           (while (<= column width)
+             (setq ch (aref str to)
+                   column (+ column (char-width ch))
+                   to-prev to
+                   to (+ to (char-bytes ch))))
+           (setq to to-prev)))
+      (substring str from to))))
+
 
 ;;; @ text property emulation
 ;;;
@@ -181,3 +257,5 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
 ;;;
 
 (provide 'emu-nemacs)
+
+;;; emu-nemacs.el ends here