From: morioka <morioka>
Date: Mon, 9 Mar 1998 16:00:18 +0000 (+0000)
Subject: tm 7.46.
X-Git-Tag: tm7_46~1
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=ccf2f64b0078cae63454ee0f742ee638c9c2bbaa;p=elisp%2Fapel.git

tm 7.46.
---

diff --git a/ChangeLog b/ChangeLog
index c0db5e0..31585c6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,36 @@
+Wed Feb 28 13:26:26 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.13 was released.
+
+Wed Feb 27 19:37:46 1996  Shuhei KOBAYASHI  <shuhei@cmpt01.phys.tohoku.ac.jp>
+
+        * mk-tl: Add `mu-bbdb.el' to module list.
+
+        * mu-bbdb.el: New file.
+
+        * mu-cite.el: (mu-cite/get-field-value-method-alist),
+        (mu-cite/get-field-value): Typo fixed.
+        (mu-cite/get-citation-name): Changed to function.
+        (mu-cite/add-citation-name): New implementation.
+        (mu-cite/save-to-file): Add sore comments.
+        (mu-cite/get-prefix-register-method),
+        (mu-cite/get-prefix-register-verbose-method): Use 'x-attribution.
+        (mu-cite/default-methods-alist): Method `'x-attribution' was added.
+        (replace-top-string): New implementation.
+        
+Tue Feb 27 17:50:41 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu-nemacs.el (*noconv*): New constant.
+	(*sjis*): New constant.
+	(code-detect-region): New function.
+	(set-file-coding-system): New function.
+
+	* emu-orig.el (code-detect-region): New function.
+	(set-file-coding-system): New function.
+
+	* emu-orig.el (*noconv*): New constant.
+
+
 Mon Feb 26 01:14:28 1996  Morioka Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl: Version 7.11.3 was released.
diff --git a/Makefile b/Makefile
index b7f102a..2e00839 100644
--- a/Makefile
+++ b/Makefile
@@ -20,7 +20,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp
 FILES	= tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \
 		tl/ChangeLog
 
-TARFILE = tl-7.11.3.tar
+TARFILE = tl-7.13.tar
 
 
 elc:
diff --git a/emu-nemacs.el b/emu-nemacs.el
index 52b7e5b..e8d2847 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -2,12 +2,12 @@
 ;;; emu-nemacs.el --- Mule 2 emulation module for NEmacs
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994 .. 1996 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.4 1996/01/25 02:11:31 morioka Exp $
+;;;	$Id: emu-nemacs.el,v 7.7 1996/02/27 17:50:41 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -56,9 +56,11 @@
 ;;; @ coding-system
 ;;;
 
-(defconst *junet* 2)
-(defconst *ctext* 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)
@@ -76,24 +78,39 @@ 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)
@@ -111,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)