From 6d43327aaf83cf1b2533798d75519e9e31431d4d Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 19:21:34 +0000 Subject: [PATCH] tm 7.68. --- ChangeLog | 23 +++++++++++++++++++++++ Makefile | 2 +- emu-e19.el | 4 +++- emu-mule.el | 4 +++- emu-nemacs.el | 4 +++- emu-x20.el | 9 +++++++-- 6 files changed, 40 insertions(+), 6 deletions(-) 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 + + * tl: Version 7.30 was released. + +Wed Jun 12 03:55:10 1996 Shuhei KOBAYASHI + + * 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 + + * emu-x20.el (code-converter-is-broken): XEmacs 20.0 beta 24 is + broken too. + +Mon Jun 10 07:37:33 1996 MORIOKA Tomohiko + + * emu-x20.el (char-length): New function. + +Mon Jun 10 07:34:46 1996 MORIOKA Tomohiko + + * emu-e19.el, emu-mule.el, emu-nemacs.el (char-length): New alias. + + Mon Jun 3 14:36:59 1996 MORIOKA Tomohiko * 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 ;;; 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 ;;; 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 ;;; modified by KOBAYASHI Shuhei ;;; 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 ;;; 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]" -- 1.7.10.4