update.

[elisp/apel.git] / EMU-ELS

diff --git a/EMU-ELS b/EMU-ELS
index 6865884..677ebfc 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)
@@ -60,7 +61,9 @@
        '(pccl-20 pccl))
       (t
        ;; Mule 1.* and 2.*.
-       '(pccl-om pccl)))))
+       '(pccl-om pccl))))
+     (t
+      '(pccl)))
 
    ;; pces modules; pces modules depend on poe.
    (cond
@@ -148,10 +151,28 @@
            (or (< emacs-major-version 19)
                (and (= emacs-major-version 19)
                     (< emacs-minor-version 16))))
-       '(time-stamp))
+       '(time-stamp)
+     ;; no problem.
+     '())
 
    ;; 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."))
+        ;; no problem.
+        '())
+     (error
+      '(timezone)))
 
    ;; invisible modules; provided for backward compatibility with old "tm".
    (cond