(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)
;; 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
(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