From: morioka Date: Tue, 10 Mar 1998 05:26:01 +0000 (+0000) Subject: tm 7.90. X-Git-Tag: tm7_90~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9d036e90ffb0503e23636ddce75ac7a6c172e60e;p=elisp%2Fapel.git tm 7.90. --- diff --git a/ChangeLog b/ChangeLog index 3700a94..f22ded0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,51 @@ +Wed Oct 16 00:12:13 1996 MORIOKA Tomohiko + + * tl: Version 7.61.10 was released. + +Tue Oct 15 22:58:28 1996 MORIOKA Tomohiko + + * TL-ELS (tl-modules): Add `char-util' and `char-table' for + Emacs/mule. + + * char-table.el, char-util.el: New module. + + * sinfo.el: New module. + +Sat Oct 12 19:22:43 1996 MORIOKA Tomohiko + + * TL-ELS (tl-modules): Add `texi-util'; add `sinfo' for mule + merged Emacs. + +Thu Oct 10 19:42:30 1996 Martin Buchholz + + * emu-x20.el (string-width): fixed typo. + +Thu Oct 10 14:21:35 1996 MORIOKA Tomohiko + + * texi-util.el: New module. + + * ol-to-texi.el: Function `ol-to-texi-add-menu-title' was renamed + to `texinfo-all-menu-titles-update' and moved to texi-util.el. + + * tl-str.el: Function `file-name-non-extension' was moved from + ol-to-texi.el. + + * ol-to-texi.el: Function `file-name-non-extension' was moved to + tl-str.el. + + * ol-to-texi.el: require tl-list. + +Mon Oct 7 07:11:36 1996 MORIOKA Tomohiko + + * emu-e20.el (charset-iso-class): New function. + + * tl-list.el (remove-alist): New function. + +Sat Oct 5 08:12:16 1996 MORIOKA Tomohiko + + * ol-to-texi.el (ol-to-texi-add-menu-title): New function. + + Tue Oct 1 15:03:36 1996 MORIOKA Tomohiko * tl: Version 7.61.9 was released. diff --git a/emu-e20.el b/emu-e20.el index 84c2d53..0d32709 100644 --- a/emu-e20.el +++ b/emu-e20.el @@ -3,7 +3,7 @@ ;; Copyright (C) 1996 Free Software Foundation, Inc. ;; Author: MORIOKA Tomohiko -;; Version: $Id: emu-e20.el,v 4.1 1996/10/01 13:18:34 morioka Exp $ +;; Version: $Id: emu-e20.el,v 4.2 1996/10/07 07:11:36 morioka Exp $ ;; Keywords: emulation, compatibility, Mule ;; This file is part of tl (Tiny Library). @@ -51,6 +51,12 @@ (defalias 'charset-columns 'charset-width) +(defun charset-iso-class (charset) + "Return ISO-class of CHARSET. +\(0/CLASS94, 1/CLASS96, 2/CLASS94x94, 3/CLASS96x96) [emu-e20.el]" + (aref (charset-info charset) 5) + ) + (defun find-non-ascii-charset-string (string) "Return a list of charsets in the STRING except ascii. \[emu-e20.el; Mule emulating function]" diff --git a/emu-x20.el b/emu-x20.el index 01eb670..c163221 100644 --- a/emu-x20.el +++ b/emu-x20.el @@ -4,7 +4,7 @@ ;; Copyright (C) 1994,1995,1996 MORIOKA Tomohiko ;; Author: MORIOKA Tomohiko -;; Version: $Id: emu-x20.el,v 7.38 1996/10/01 13:22:13 morioka Exp $ +;; Version: $Id: emu-x20.el,v 7.39 1996/10/12 05:54:38 morioka Exp $ ;; Keywords: emulation, compatibility, Mule, XEmacs ;; This file is part of tl (Tiny Library). @@ -241,7 +241,7 @@ TABLE defaults to the current buffer's category table. ) col)) -(defalias 'string-width 'string-column) +(defalias 'string-width 'string-columns) (defun string-to-int-list (str) (mapcar #'char-int str)