(MAKEIT.BAT): Modify for apel-ja@lists.chise.org.

[elisp/apel.git] / EMU-ELS

diff --git a/EMU-ELS b/EMU-ELS
index 6865884..f0b14aa 100644 (file)
--- a/EMU-ELS
+++ b/EMU-ELS
@@ -16,8 +16,9 @@
   (nconc
    ;; modules are sorted by compilation order.
    '(static broken)
-   ;; coming soon.
-   ;; '(product)
+
+   ;; product information.
+   '(product apel-ver)
 
    ;; poe modules; poe modules depend on static.
    '(pym)
@@ -49,18 +50,24 @@
 
    ;; pccl modules; pccl modules depend on broken.
    (cond
-    ((featurep 'mule)
+    ((featurep 'xemacs)
      (cond
       ;; XEmacs 21 w/ mule.
-      ((and (featurep 'xemacs)
+      ((and (featurep 'mule)
            (>= emacs-major-version 21))
        '(pccl-20 pccl))
+      (t
+       '(pccl))))
+    ((featurep 'mule)
+     (cond
       ;; Emacs 20.
       ((>= emacs-major-version 20)
        '(pccl-20 pccl))
+      ;; Mule 1.* and 2.*.
       (t
-       ;; Mule 1.* and 2.*.
-       '(pccl-om pccl)))))
+       '(pccl-om pccl))))
+    (t
+     '(pccl)))
 
    ;; pces modules; pces modules depend on poe.
    (cond
@@ -143,21 +150,39 @@
     (t
      '(mcs-ltn1 mcharset)))
 
-   ;; time-stamp.el; First appeared in Emacs 19.16.
-   (if (and (not (featurep 'xemacs))
-           (or (< emacs-major-version 19)
-               (and (= emacs-major-version 19)
-                    (< emacs-minor-version 16))))
-       '(time-stamp))
-
    ;; timezone.el; Some versions have Y2K problem.
-   ;; coming soon.
+   (condition-case nil
+       (let ((load-path (delete (expand-file-name ".")
+                               (copy-sequence load-path))))
+        ;; v18 does not have timezone.el.
+        (require 'timezone)
+        ;; Is timezone.el APEL version?
+        (if (product-find 'timezone)
+            (error "timezone.el is APEL version. Install newer version."))
+        ;; Y2K test.
+        (or (string= (aref (timezone-parse-date "Sat, 1 Jan 00 00:00:00 GMT")
+                           0)
+                     "2000")
+            (error "timezone.el has Y2K problem. Install fixed version."))
+        ;; Old parser test.
+        (if (string=
+             (aref (timezone-parse-date "Wednesday, 31-Jan-01 09:00:00 GMT")
+                   0)
+             "0")
+            (error "timezone.el has old date parser. Install fixed version."))
+        ;; no problem.
+        '())
+     (error
+      '(timezone)))
 
    ;; invisible modules; provided for backward compatibility with old "tm".
    (cond
     ((featurep 'xemacs)
      ;; XEmacs.
      '(inv-xemacs invisible))
+    ((>= emacs-major-version 23)
+     ;; Emacs 23 and later
+     '(inv-23 invisible))
     ((>= emacs-major-version 19)
      ;; Emacs 19 and later.
      '(inv-19 invisible))