tm 7.68.

diff --git a/ChangeLog b/ChangeLog
index 11baa37..6b315bb 100644 (file)
--- 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.
+
+\f
 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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]"