APEL-ELS

   1 ;;; APEL-ELS --- list of APEL modules to install. -*-Emacs-Lisp-*-
   2
   3 ;;; Commentary:
   4
   5 ;; APEL-MK imports `apel-modules' from here.
   6
   7 ;;; Code:
   8
   9 (defvar apel-modules '(product apel-ver
  10                                alist calist path-util filename install
  11                              ;; "mule-caesar" is version-dependent.
  12                              ;; moved to EMU-ELS.
  13                              ;; mule-caesar
  14
  15                              ;; [obsoleted modules] If you would like to
  16                              ;; install following, please activate them.
  17                              ;; atype file-detect
  18                                ))
  19
  20 (if (or (< emacs-major-version 19)
  21         (and (eq emacs-major-version 19) (< emacs-minor-version 16)))
  22     (setq apel-modules (cons 'time-stamp apel-modules))
  23   )
  24
  25 (condition-case nil
  26     (let ((load-path (delete (expand-file-name ".")
  27                              (copy-sequence load-path))))
  28       ;; v18 does not have timezone.el.
  29       (require 'timezone)
  30       ;; Is timezone.el APEL version?
  31       (if (product-find 'timezone)
  32           (error "timezone.el is APEL version. Install newer version."))
  33       ;; Y2K test.
  34       (or (string= (aref (timezone-parse-date "Sat, 1 Jan 00 00:00:00 GMT")
  35                          0)
  36                    "2000")
  37           (error "timezone.el has Y2K problem. Install fixed version."))
  38       ;; another test here.
  39       )
  40   (error
  41    (setq apel-modules (cons 'timezone apel-modules))))
  42
  43 ;;; APEL-ELS ends here