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)
14 (let ((poe-modules '(poe))
15 (poem-modules '(poem))
16 (mcs-modules '(mcharset))
17 (invisible-modules '(invisible))
18 (pccl-modules '(pccl)))
19 (cond ((featurep 'xemacs)
20 (setq poe-modules (cons 'poe-xemacs poe-modules)
21 invisible-modules (cons 'inv-xemacs invisible-modules))
23 ((>= emacs-major-version 19)
24 (setq invisible-modules (cons 'inv-19 invisible-modules))
27 (setq poe-modules (cons 'poe-18 poe-modules)
28 invisible-modules (cons 'inv-18 invisible-modules))
30 (cond ((featurep 'mule)
31 (cond ((featurep 'xemacs)
32 (setq poem-modules (cons 'poem-xm (cons 'poem-20
34 mcs-modules (cons 'mcs-xm (cons 'mcs-20 mcs-modules)))
35 (if (>= emacs-major-version 21)
36 (setq pccl-modules (cons 'pccl-20 pccl-modules))
39 ((>= emacs-major-version 20)
40 (setq poem-modules (cons 'poem-e20 (cons 'poem-20
42 mcs-modules (cons 'mcs-e20 (cons 'mcs-20
44 pccl-modules (cons 'pccl-20 pccl-modules))
48 (fboundp 'set-buffer-multibyte)
49 (subrp (symbol-function 'set-buffer-multibyte)))
55 (setq poem-modules (cons 'poem-om poem-modules)
56 mcs-modules (cons 'mcs-om mcs-modules)
57 pccl-modules (cons 'pccl-om pccl-modules)
58 emu-modules (cons 'emu-mule emu-modules))
62 (setq poem-modules (cons 'poem-nemacs poem-modules)
63 mcs-modules (cons 'mcs-nemacs mcs-modules))
66 (setq poem-modules (cons 'poem-ltn1 poem-modules)
67 mcs-modules (cons 'mcs-ltn1 mcs-modules))
70 (setq emu-modules (append poe-modules poem-modules
71 mcs-modules invisible-modules
74 (setq emu-modules (cons 'broken emu-modules))