;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id $
-;;;
+
+;; EMU-ELS: list of EMU modules to install
+
+;;; Code:
(setq emu-modules
(cons
(setq emu-modules
(nconc
- (cond (running-mule-merged-emacs
- '(emu-e20)
+ (cond (running-xemacs
+ ;; for XEmacs
+ (cons 'emu-xemacs
+ (if (featurep 'mule)
+ '(emu-20 emu-x20) ; for XEmacs with MULE
+ '(emu-latin1) ; for XEmacs without MULE
+ ))
)
- (running-xemacs-with-mule
- '(emu-x20)
+ (running-mule-merged-emacs
+ ;; for Emacs 20.1 or later
+ (cons (if (and (fboundp 'set-buffer-multibyte)
+ (subrp (symbol-function 'set-buffer-multibyte)))
+ 'emu-e20_3 ; for Emacs 20.3
+ 'emu-e20_2 ; for Emacs 20.1 and 20.2
+ )
+ '(emu-20 emu-e19 emu-e20))
)
((boundp 'MULE)
- '(emu-mule)
+ ;; for MULE 1.* and MULE 2.*
+ (cons 'emu-mule
+ (if running-emacs-18
+ '(emu-18 env)
+ '(emu-e19)))
)
((boundp 'NEMACS)
- '(emu-nemacs)
+ ;; for NEmacs
+ '(emu-18 emu-nemacs)
)
(t
- '(emu-e19)
+ ;; for Emacs 19.34
+ '(emu-e19 emu-latin1)
))
emu-modules))
-(cond (running-emacs-18
- (setq emu-modules (cons 'emu-18 (cons 'env emu-modules)))
- )
- (running-xemacs
- (setq emu-modules (cons 'emu-xemacs emu-modules))
- )
- (t
- (setq emu-modules (cons 'emu-19 emu-modules))
- ))
-
;;; EMU-ELS ends here