X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=EMU-ELS;h=20cb83771f4d7f77650d948fd05c7367acc4e894;hb=refs%2Fheads%2Fyamaoka-maybe;hp=677ebfcb303b97328c8b5b563f78aa2c644c9f47;hpb=4f1f3f68dff8538938acf0ecc72113b985a77d0e;p=elisp%2Fapel.git

diff --git a/EMU-ELS b/EMU-ELS
index 677ebfc..20cb837 100644
--- a/EMU-ELS
+++ b/EMU-ELS
@@ -50,20 +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))))
-     (t
-      '(pccl)))
+    (t
+     '(pccl)))
 
    ;; pces modules; pces modules depend on poe.
    (cond
@@ -169,6 +173,12 @@
 			    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