From: yamaoka Date: Fri, 12 Nov 1999 11:33:16 +0000 (+0000) Subject: (emu-modules): Don't include `time-stamp' for XEmacs. X-Git-Tag: apel-shubit-10_0~37 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=190d41771ebb6c6a2bd108d815eb793f8e40e208;p=elisp%2Fapel.git (emu-modules): Don't include `time-stamp' for XEmacs. --- diff --git a/EMU-ELS b/EMU-ELS index 2a4fbfd..e69de29 100644 --- a/EMU-ELS +++ b/EMU-ELS @@ -1,197 +0,0 @@ -;;; EMU-ELS --- list of EMU modules to install -*-Emacs-Lisp-*- - -;;; Commentary: - -;; APEL-MK imports `emu-modules' and `emu-modules-to-compile' from here. - -;;; Code: - -(defvar emu-modules-not-to-compile nil) -(defvar emu-modules-to-compile nil) - -;; We use compile-time evaluation heavily. So, order of compilation is -;; very significant. For example, loading some module before compiling -;; it will cause "compile-time" evaluation many times. -(defvar emu-modules - (nconc - ;; modules are sorted by compilation order. - '(static broken) - ;; coming soon. - ;; '(product) - - ;; poe modules; poe modules depend on static. - (cond - ;; XEmacs. - ((featurep 'xemacs) - '(poe-xemacs poe)) - ;; Emacs 19.29 and earlier. (yes, includes Emacs 19.29.) - ((and (= emacs-major-version 19) - (<= emacs-minor-version 29)) - '(localhook poe)) - ;; Emacs 19.30 and later. - ((>= emacs-major-version 19) - '(poe)) - (t - ;; v18. - '(localhook env poe-18 poe))) - - ;; pcustom modules; pcustom modules depend on poe. - (if (and (module-installed-p 'custom) - ;; new custom requires widget. - (module-installed-p 'widget)) - ;; if both 'custom and 'widget are found, we have new custom. - '(pcustom) - ;; pcustom does (require 'custom) at compile-time, and tinycustom - ;; need to test existence of some custom macros at compile-time! - ;; so, we must compile tinycustom first. - '(tinycustom pcustom)) - - ;; pccl modules; pccl modules depend on broken. - (cond - ((featurep 'mule) - (cond - ;; XEmacs 21 w/ mule. - ((and (featurep 'xemacs) - (>= emacs-major-version 21)) - '(pccl-20 pccl)) - ;; Emacs 20. - ((>= emacs-major-version 20) - '(pccl-20 pccl)) - (t - ;; Mule 1.* and 2.*. - '(pccl-om pccl))))) - - ;; pces modules; pces modules depend on poe. - (cond - ((featurep 'xemacs) - (cond - ((featurep 'mule) - ;; XEmacs w/ mule. - ;; pces-xfc depends pces-20, so we compile pces-20 first. - '(pces-20 pces-xm pces-xfc pces)) - ((featurep 'file-coding) - ;; XEmacs w/ file-coding. - ;; pces-xfc depends pces-20, so we compile pces-20 first. - '(pces-20 pces-xfc pces)) - (t - '(pces-raw pces)))) - ((featurep 'mule) - (cond - ;; Emacs 20.3 and later. - ((and (fboundp 'set-buffer-multibyte) - (subrp (symbol-function 'set-buffer-multibyte))) - ;; pces-e20 depends pces-20, so we compile pces-20 first. - '(pces-20 pces-e20 pces)) - ;; Emacs 20.1 and 20.2. - ((= emacs-major-version 20) - ;; pces-e20 depends pces-20, so we compile pces-20 first. - '(pces-20 pces-e20_2 pces-e20 pces)) - (t - ;; Mule 1.* and 2.*. - '(pces-om pces)))) - ((boundp 'NEMACS) - ;; Nemacs. - '(pces-nemacs pces)) - (t - '(pces-raw pces))) - - ;; poem modules; poem modules depend on pces. - (cond - ((featurep 'mule) - (cond - ((featurep 'xemacs) - ;; XEmacs w/ mule. - '(poem-xm poem)) - ((>= emacs-major-version 20) - (if (and (fboundp 'set-buffer-multibyte) - (subrp (symbol-function 'set-buffer-multibyte))) - ;; Emacs 20.3 and later. - '(poem-e20_3 poem-e20 poem) - ;; Emacs 20.1 and 20.2. - '(poem-e20_2 poem-e20 poem))) - (t - ;; Mule 1.* and 2.*. - '(poem-om poem)))) - ((boundp 'NEMACS) - '(poem-nemacs poem)) - (t - '(poem-ltn1 poem))) - - ;; mcharset modules; mcharset modules depend on poem and pcustom. - (cond - ((featurep 'mule) - (cond - ((featurep 'xemacs) - ;; XEmacs w/ mule. - (if (featurep 'utf-2000) - ;; XEmacs w/ UTF-2000. - (setq emu-modules-not-to-compile - (cons 'mcs-xmu emu-modules-not-to-compile))) - ;; mcs-xm depends mcs-20, so we compile mcs-20 first. - '(mcs-20 mcs-xmu mcs-xm mcharset)) - ((>= emacs-major-version 20) - ;; Emacs 20 and later. - ;; mcs-e20 depends mcs-20, so we compile mcs-20 first. - '(mcs-20 mcs-e20 mcharset)) - (t - ;; Mule 1.* and 2.*. - '(mcs-om mcharset)))) - ((boundp 'NEMACS) - ;; Nemacs. - '(mcs-nemacs mcharset)) - (t - '(mcs-ltn1 mcharset))) - - ;; mule-caesar.el; part of apel-modules, but it is version-dependent. - '(mule-caesar) - - ;; time-stamp.el; First appeared in Emacs 19.16. - ;; XXX: is this intended to include XEmacs ? FIXME! - (if (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. - - ;; invisible modules; provided for backward compatibility with old "tm". - (cond - ((featurep 'xemacs) - ;; XEmacs. - '(inv-xemacs invisible)) - ((>= emacs-major-version 19) - ;; Emacs 19 and later. - '(inv-19 invisible)) - (t - ;; v18. - '(inv-18 invisible))) - - ;; emu modules; provided for backward compatibility with old "tm". - (if (and (featurep 'mule) - (< emacs-major-version 20)) - ;; Mule 1.* and 2.*. - '(emu-mule emu) - '(emu)) - - ;; emu submodules; text/richtext and text/enriched support. - (if (if (featurep 'xemacs) - (or (>= emacs-major-version 20) - (and (= emacs-major-version 19) - (>= emacs-minor-version 14))) - (or (>= emacs-major-version 20) - (and (= emacs-major-version 19) - (>= emacs-minor-version 29)))) - ;; XEmacs 19.14 and later, or Emacs 19.29 and later. - '(richtext) - '(tinyrich)))) - -;; Generate `emu-modules-to-compile' from `emu-modules-not-to-compile' -;; and `emu-modules'. -(let ((modules emu-modules-not-to-compile)) - (setq emu-modules-to-compile (copy-sequence emu-modules)) - (while modules - (setq emu-modules-to-compile (delq (car modules) emu-modules-to-compile) - modules (cdr modules)))) - -;;; EMU-ELS ends here