tm 7.52.1.

diff --git a/ChangeLog b/ChangeLog
index 3eae399..4659da9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,51 @@
+Sat Apr 20 13:10:42 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl: Version 7.19.2 was released.
+
+Fri Apr 19 19:24:32 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-822.el (rfc822/parse-addresses): use `nreverse'
+
+       * tl-822.el (rfc822/parse-group): use `nreverse'
+
+       * tl-822.el (rfc822/parse-token-or-comment): use `nreverse'
+
+       * tl-822.el (rfc822/parse-ascii-token): use `nreverse'
+
+       * tl-822.el (rfc822/parse-token): use `nreverse'
+
+       * tl-822.el (rfc822/lexical-analyze): use `nreverse'
+
+Fri Apr 19 18:48:55 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-822.el (rfc822/address-string): support group
+       (rfc822/full-name-string): support group
+
+Fri Apr 19 07:44:39 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-seq.el (foldr): fixed
+
+Fri Apr 19 07:26:08 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * tl-seq.el (foldl): use `1+'
+
+       * tl-seq.el (foldr): New function
+
+Wed Apr 17 15:18:54 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+       * emu-mule.el: use `running-emacs-19' and `running-emacs-18'.
+
+       * emu-nemacs.el: delete definition of `emacs-major-version'.
+
+       * emu-orig.el: use `running-emacs-19'.
+
+       * emu.el: define `emacs-major-version' if not bound.
+
+       * emu-mule.el: delete check and define `emacs-major-version'.
+
+       * emu-orig.el: use `running-xemacs'.
+
+\f
 Mon Apr 15 08:57:58 1996  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * tl: Version 7.19.1 was released.

diff --git a/emu-mule.el b/emu-mule.el
index 3892370..02528b3 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.0 1996/03/14 16:27:21 morioka Exp $
+;;;    $Id: emu-mule.el,v 7.2 1996/04/17 15:17:24 morioka Exp $
 ;;; Keywords: emulation, compatibility, Mule
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -41,10 +41,6 @@ whose return value applied function PRED is not nil.
        ))
    ))
 
-(if (not (boundp 'emacs-major-version))
-    (defconst emacs-major-version (string-to-int emacs-version))
-  )
-
 
 ;;; @ leading-character
 ;;;
@@ -59,7 +55,7 @@ whose return value applied function PRED is not nil.
 ;;; @ version specific features
 ;;;
 
-(cond ((>= emacs-major-version 19)
+(cond (running-emacs-19
        (require 'emu-19)
        (defun fontset-pixel-size (fontset)
         (elt
@@ -72,7 +68,7 @@ whose return value applied function PRED is not nil.
            (cdr (get-fontset-info fontset))
            )) 5))
        )
-      (t
+      (running-emacs-18
        (require 'emu-18)
        (defun tl:make-overlay (beg end &optional buffer type))
        (defun tl:overlay-put (overlay prop value))

diff --git a/emu-nemacs.el b/emu-nemacs.el
index d3911ff..4097331 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@cmpt01.phys.tohoku.ac.jp>
 ;;; Version:
-;;;    $Id: emu-nemacs.el,v 7.8 1996/03/14 16:25:39 morioka Exp $
+;;;    $Id: emu-nemacs.el,v 7.9 1996/04/17 15:14:17 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -31,12 +31,6 @@
 (require 'emu-18)
 
 
-;;; @ constants
-;;;
-
-(defconst emacs-major-version (string-to-int emacs-version))
-
-
 ;;; @ leading-char
 ;;;
 

diff --git a/emu.el b/emu.el
index a4fba79..1142e7b 100644 (file)
--- a/emu.el
+++ b/emu.el
@@ -7,7 +7,7 @@
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; modified by Shuhei KOBAYASHI <shuhei@cmpt01.phys.tohoku.ac.jp>
 ;;; Version:
-;;;    $Id: emu.el,v 7.5 1996/04/14 00:11:18 morioka Exp $
+;;;    $Id: emu.el,v 7.7 1996/04/17 15:18:54 morioka Exp $
 ;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs
 ;;;
 ;;; This file is part of tl (Tiny Library).
@@ -28,20 +28,22 @@
 ;;;
 ;;; Code:
 
-(defvar running-xemacs (string-match "XEmacs" emacs-version))
-
-(cond ((boundp 'MULE)  (require 'emu-mule))
-      ((boundp 'NEMACS)(require 'emu-nemacs))
-      (t               (require 'emu-orig))
-      )
+(or (boundp 'emacs-major-version)
+    (defconst emacs-major-version (string-to-int emacs-version)))
 
 (defvar running-emacs-18 (<= emacs-major-version 18))
+(defvar running-xemacs (string-match "XEmacs" emacs-version))
 (defvar running-emacs-19 (and (not running-xemacs)
                              (= emacs-major-version 19)))
 (defvar running-emacs-19_29-or-later
   (or (and running-emacs-19 (>= emacs-minor-version 29))
       (>= emacs-major-version 20)))
 
+(cond ((boundp 'MULE)  (require 'emu-mule))
+      ((boundp 'NEMACS)(require 'emu-nemacs))
+      (t               (require 'emu-orig))
+      )
+
 
 ;;; @ Emacs 19.29 emulation
 ;;;