tm 7.52.1.

wanderlust · Mar 9, 1998 · 74bd4c4 · 74bd4c4
1 parent c28ca08
commit 74bd4c4
Show file tree

Hide file tree

Showing 4 changed files with 58 additions and 18 deletions.
diff --git 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'.
+
+
 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
@@ -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
@@ -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
@@ -28,20 +28,22 @@
 ;;;
 ;;; Code:
 
-(defvar running-xemacs (string-match "XEmacs" emacs-version))
+(or (boundp 'emacs-major-version)
-
+    (defconst emacs-major-version (string-to-int emacs-version)))
-(cond ((boundp 'MULE)  (require 'emu-mule))
-      ((boundp 'NEMACS)(require 'emu-nemacs))
-      (t               (require 'emu-orig))
-      )
 
 (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
 ;;;