From: morioka <morioka>
Date: Mon, 9 Mar 1998 17:51:12 +0000 (+0000)
Subject: tm 7.57.
X-Git-Tag: tm7_57~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f2208e2422849c9b816ab294338bfba5a025f6b3;p=elisp%2Fapel.git

tm 7.57.
---

diff --git a/ChangeLog b/ChangeLog
index 4375033..49a7e09 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,34 @@
+Tue May  7 18:16:38 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl: Version 7.22.2 was released.
+
+	* emu-x20.el (*hz*, *big5*, *euc-kr*, *koi8*): New constant.
+
+Tue May  7 17:50:26 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu.el (running-xemacs-19): Definition was changed.
+	(running-xemacs-20): Definition was changed.
+
+Tue May  7 17:15:31 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* tl-els: bitmap.el must be regarded as Mule depended module.
+
+Tue May  7 16:40:44 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu-x20.el (xemacs-beta-version): New variable.
+	(code-converter-is-broken): Use variable `xemacs-beta-version'.
+
+Tue May  7 07:00:50 1996  Shuhei KOBAYASHI  <shuhei-k@jaist.ac.jp>
+
+	* emu.el, mu-bbdb.el, mu-cite.el: KOBAYASHI Shuhei's address was
+ 	changed.
+
+Tue May  7 06:29:59 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* emu.el (running-xemacs-19_14-or-later): New variable.
+	setting for text/enriched and text/richtext.
+
+
 Mon Apr 29 06:30:47 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
 	* tl: Version 7.22.1 was released.
diff --git a/Makefile b/Makefile
index b68a759..af391fc 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/*.texi tl/ChangeLog
 
-TARFILE = tl-7.22.1.tar
+TARFILE = tl-7.22.2.tar
 
 
 elc:
diff --git a/emu-x20.el b/emu-x20.el
index 7623a11..2fe1042 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 3.1 1996/04/28 16:53:05 morioka Exp $
+;;;	$Id: emu-x20.el,v 5.0 1996/05/07 18:16:38 morioka Exp $
 ;;; Keywords: emulation, compatibility, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -27,6 +27,13 @@
 ;;;
 ;;; Code:
 
+(defvar xemacs-beta-version
+  (if (string-match "(beta\\([0-9]+\\))" emacs-version)
+      (string-to-number
+       (substring emacs-version (match-beginning 1)(match-end 1))
+       )))
+
+
 ;;; @ character set
 ;;;
 
@@ -75,8 +82,13 @@ in the region between START and END.
 
 (defconst *noconv* 'noconv)
 (defconst *ctext*  'ctext)
+(defconst *hz*     'hz)
+(defconst *big5*   'big5)
+(defconst *euc-kr* 'euc-kr)
+(defconst *koi8*   nil)
 
-(defvar code-converter-is-broken (string-match "(beta17)" emacs-version))
+(defvar code-converter-is-broken
+  (and xemacs-beta-version (<= xemacs-beta-version 18)))
 
 (if code-converter-is-broken
 (progn
diff --git a/emu.el b/emu.el
index 4b59ff3..e4fc7b8 100644
--- a/emu.el
+++ b/emu.el
@@ -5,9 +5,9 @@
 ;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;;; modified by Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
+;;; modified by KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
 ;;; Version:
-;;;	$Id: emu.el,v 7.10 1996/04/27 15:25:33 morioka Exp $
+;;;	$Id: emu.el,v 7.13 1996/05/07 17:50:26 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -33,8 +33,13 @@
 
 (defvar running-emacs-18 (<= emacs-major-version 18))
 (defvar running-xemacs (string-match "XEmacs" emacs-version))
+(defvar running-xemacs-19 (and running-xemacs
+			       (= emacs-major-version 19)))
 (defvar running-xemacs-20 (and running-xemacs
-			       (>= emacs-major-version 20)))
+			       (= emacs-major-version 20)))
+(defvar running-xemacs-19_14-or-later
+  (or (and running-xemacs-19 (>= emacs-minor-version 14))
+      (>= emacs-major-version 20)))
 (defvar running-emacs-19 (and (not running-xemacs)
 			      (= emacs-major-version 19)))
 (defvar running-emacs-19_29-or-later
@@ -104,6 +109,28 @@
     )
 
 
+;;; @ for text/richtext and text/enriched
+;;;
+
+(cond ((or running-emacs-19_29-or-later running-xemacs-19_14-or-later)
+       ;; have enriched.el
+       (autoload 'richtext-decode "richtext")
+       (or (assq 'text/richtext format-alist)
+	   (setq format-alist
+		 (cons
+		  (cons 'text/richtext
+			'("Extended MIME text/richtext format."
+			  "Content-[Tt]ype:[ \t]*text/richtext"
+			  richtext-decode richtext-encode t enriched-mode))
+		  format-alist)))
+       )
+      (t
+       ;; don't have enriched.el
+       (autoload 'richtext-decode "tinyrich")
+       (autoload 'enriched-decode "tinyrich")
+       ))
+
+
 ;;; @ end
 ;;;