3 ;; EMU-ELS: list of EMU modules to install
7 (setq emu-modules (cons 'emu
8 (if (or running-emacs-19_29-or-later
9 running-xemacs-19_14-or-later)
13 (setq pcustom-modules (if (and (module-installed-p 'custom)
14 ;; new custom requires widget.
15 (module-installed-p 'widget))
17 ;; XXX: order is significant in current make process.
18 '(tinycustom pcustom)))
20 (let ((poe-modules '(poe))
21 (pces-modules '(pces))
22 (poem-modules '(poem))
23 (mcs-modules '(mcharset))
24 (invisible-modules '(invisible))
25 (pccl-modules '(pccl)))
26 (cond ((featurep 'xemacs)
27 (setq poe-modules (cons 'poe-xemacs poe-modules)
28 invisible-modules (cons 'inv-xemacs invisible-modules))
30 ((>= emacs-major-version 19)
31 (setq invisible-modules (cons 'inv-19 invisible-modules))
32 (if (and (= emacs-major-version 19)
33 (<= emacs-minor-version 28))
34 (setq poe-modules (cons 'localhook poe-modules))
38 (setq poe-modules (cons 'poe-18 (cons 'localhook poe-modules))
39 invisible-modules (cons 'inv-18 invisible-modules))
41 (cond ((and (featurep 'xemacs)
42 (featurep 'file-coding))
43 (setq pces-modules (cons 'pces-xfc (cons 'pces-20 pces-modules)))
45 (setq pces-modules (cons 'pces-xm pces-modules))
48 (cond ((>= emacs-major-version 20)
50 (cons 'pces-e20 (cons 'pces-20 pces-modules)))
51 (or (and (fboundp 'set-buffer-multibyte)
52 (subrp (symbol-function 'set-buffer-multibyte)))
53 (setq pces-modules (cons 'pces-e20_2 pces-modules)))
56 ;; for MULE 1.* and 2.*
57 (setq pces-modules (cons 'pces-om pces-modules))
60 ;; for Nemacs and Nepoch
61 (setq pces-modules (cons 'pces-nemacs pces-modules))
64 (setq pces-modules (cons 'pces-raw pces-modules))
66 (cond ((featurep 'mule)
67 (cond ((featurep 'xemacs)
68 (setq poem-modules (cons 'poem-xm poem-modules)
69 mcs-modules (cons 'mcs-xm (cons 'mcs-20 mcs-modules)))
70 (if (>= emacs-major-version 21)
71 (setq pccl-modules (cons 'pccl-20 pccl-modules))
73 ((>= emacs-major-version 20)
74 (setq poem-modules (cons 'poem-e20 poem-modules)
75 mcs-modules (cons 'mcs-e20 (cons 'mcs-20 mcs-modules))
76 pccl-modules (cons 'pccl-20 pccl-modules))
80 (fboundp 'set-buffer-multibyte)
81 (subrp (symbol-function 'set-buffer-multibyte)))
87 (setq poem-modules (cons 'poem-om poem-modules)
88 mcs-modules (cons 'mcs-om mcs-modules)
89 pccl-modules (cons 'pccl-om pccl-modules)
90 emu-modules (cons 'emu-mule emu-modules))
94 (setq poem-modules (cons 'poem-nemacs poem-modules)
95 mcs-modules (cons 'mcs-nemacs mcs-modules))
98 (setq poem-modules (cons 'poem-ltn1 poem-modules)
99 mcs-modules (cons 'mcs-ltn1 mcs-modules))
102 (setq emu-modules (append poe-modules
103 pces-modules poem-modules
104 mcs-modules invisible-modules
105 pccl-modules pcustom-modules
108 (setq emu-modules (cons 'broken emu-modules))
109 (setq emu-modules (cons 'static emu-modules))
112 ;;; EMU-ELS ends here