From: morioka <morioka>
Date: Mon, 9 Mar 1998 19:21:34 +0000 (+0000)
Subject: tm 7.68.
X-Git-Tag: tm7_68~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6d43327aaf83cf1b2533798d75519e9e31431d4d;p=elisp%2Fapel.git

tm 7.68.
---

diff --git a/ChangeLog b/ChangeLog
index 11baa37..6b315bb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,26 @@
+Wed Jun 12 05:28:42 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.30 was released.
+
+Wed Jun 12 03:55:10 1996  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
+
+	* mu-cite.el (mu-cite/cite-original): Run `mu-cite/pre-cite-hook'
+ 	after narrowing to the message.
+
+Mon Jun 10 07:59:23 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu-x20.el (code-converter-is-broken): XEmacs 20.0 beta 24 is
+ 	broken too.
+
+Mon Jun 10 07:37:33 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu-x20.el (char-length): New function.
+
+Mon Jun 10 07:34:46 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu-e19.el, emu-mule.el, emu-nemacs.el (char-length): New alias.
+
+
 Mon Jun  3 14:36:59 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl: Version 7.29.1 was released.
diff --git a/Makefile b/Makefile
index 02fd29a..b8a3677 100644
--- a/Makefile
+++ b/Makefile
@@ -21,7 +21,7 @@ FILES	= tl/README.en tl/Makefile tl/mk-tl tl/tl-els \
 		tl/*.el tl/*.bdf \
 		tl/doc/*.ol tl/doc/*.tex tl/doc/*.texi tl/ChangeLog
 
-TARFILE = tl-7.29.1.tar
+TARFILE = tl-7.30.tar
 
 
 elc:
diff --git a/emu-e19.el b/emu-e19.el
index ab07fea..7793241 100644
--- a/emu-e19.el
+++ b/emu-e19.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-e19.el,v 7.20 1996/05/28 06:37:36 morioka Exp $
+;;;	$Id: emu-e19.el,v 7.21 1996/06/10 07:34:46 morioka Exp $
 ;;; Keywords: emulation, compatibility, Mule, Latin-1
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -153,6 +153,8 @@ between START and END. [emu-e19.el; Mule emulating function]"
 \[emu-e19.el; Mule emulating function]"
   1)
 
+(defalias 'char-length 'char-bytes)
+
 (defun char-columns (character)
   "Return number of columns a CHARACTER occupies when displayed.
 \[emu-nemacs.el]"
diff --git a/emu-mule.el b/emu-mule.el
index a015cf0..b8ea85e 100644
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-mule.el,v 7.21 1996/05/27 14:08:00 morioka Exp $
+;;;	$Id: emu-mule.el,v 7.22 1996/06/10 07:32:52 morioka Exp $
 ;;; Keywords: emulation, compatibility, Mule
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -133,6 +133,8 @@ encoded in CODING-SYSTEM. [emu-mule.el]"
 
 (defalias 'char-charset 'char-leading-char)
 
+(defalias 'char-length 'char-bytes)
+
 (defalias 'char-columns 'char-width)
 
 
diff --git a/emu-nemacs.el b/emu-nemacs.el
index d782bc6..23f58f2 100644
--- a/emu-nemacs.el
+++ b/emu-nemacs.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-nemacs.el,v 7.29 1996/05/28 06:39:56 morioka Exp $
+;;;	$Id: emu-nemacs.el,v 7.30 1996/06/10 07:31:34 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -189,6 +189,8 @@ else returns nil. [emu-nemacs.el; Mule emulating function]"
 \[emu-nemacs.el; Mule emulating function]"
   (if (< chr 128) 1 2))
 
+(defalias 'char-length 'char-bytes)
+
 (defun char-columns (character)
   "Return number of columns a CHARACTER occupies when displayed.
 \[emu-nemacs.el]"
diff --git a/emu-x20.el b/emu-x20.el
index ceeb375..142f0e4 100644
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -6,7 +6,7 @@
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu-x20.el,v 7.13 1996/06/03 14:36:59 morioka Exp $
+;;;	$Id: emu-x20.el,v 7.15 1996/06/10 07:59:23 morioka Exp $
 ;;; Keywords: emulation, compatibility, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -118,7 +118,7 @@ in the region between START and END.
 (defconst *koi8*   nil)
 
 (defvar code-converter-is-broken
-  (and xemacs-beta-version (<= xemacs-beta-version 22)))
+  (and xemacs-beta-version (<= xemacs-beta-version 24)))
 
 (if code-converter-is-broken
 (progn
@@ -164,6 +164,11 @@ in the region between START and END.
 
 (defun char-bytes (chr) 1)
 
+(defun char-length (character)
+  "Return number of elements a CHARACTER occupies in a string or buffer.
+\[emu-x20.el]"
+  1)
+
 (defun char-columns (character)
   "Return number of columns a CHARACTER occupies when displayed.
 \[emu-x20.el]"