Permalink
Browse files

tm 7.52.1.

  • Loading branch information...
1 parent c28ca08 commit 74bd4c409c36630d7437928c4e9e85f2d4200e01 morioka committed Mar 9, 1998
Showing with 58 additions and 18 deletions.
  1. +48 −0 ChangeLog
  2. +2 −6 emu-mule.el
  3. +0 −6 emu-nemacs.el
  4. +8 −6 emu.el
View
@@ -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.
View
@@ -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))
View
@@ -31,12 +31,6 @@
(require 'emu-18)
-;;; @ constants
-;;;
-
-(defconst emacs-major-version (string-to-int emacs-version))
-
-
;;; @ leading-char
;;;
View
14 emu.el
@@ -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
;;;

0 comments on commit 74bd4c4

Please sign in to comment.