;;; -*-Emacs-Lisp-*-

;; EMU-ELS: list of EMU modules to install

;;; Code:

(setq emu-modules (cons 'emu
			(if (or running-emacs-19_29-or-later
				running-xemacs-19_14-or-later)
			    '(richtext)
			  '(tinyrich)
			  )))

(let ((poe-modules '(poe))
      (poem-modules '(poem))
      (mcs-modules '(mcharset))
      pccl-modules)
  (setq poe-modules (cons (cond ((featurep 'xemacs)
				 'poe-xemacs)
				((>= emacs-major-version 19)
				 'poe-19)
				(t
				 'poe-18))
			  poe-modules))
  
  (cond ((featurep 'mule)
	 (cond ((featurep 'xemacs)
		(setq poem-modules (cons 'poem-xm (cons 'poem-20
							poem-modules))
		      mcs-modules (cons 'mcs-xm (cons 'mcs-20 mcs-modules)))
		(if (>= emacs-major-version 21)
		    (setq pccl-modules '(pccl-20 pccl))
		  )
		)
	       ((>= emacs-major-version 20)
		(setq poem-modules (cons 'poem-e20 (cons 'poem-20
							 poem-modules))
		      mcs-modules (cons 'mcs-e20 (cons 'mcs-20
						       mcs-modules))
		      pccl-modules '(pccl-20 pccl))
		(setq poem-modules
		      (cons
		       (if (and
			    (fboundp 'set-buffer-multibyte)
			    (subrp (symbol-function 'set-buffer-multibyte)))
			   'poem-e20_3
			 'poem-e20_2)
		       poem-modules))
		)
	       (t
		(setq poem-modules (cons 'poem-om poem-modules)
		      mcs-modules (cons 'mcs-om mcs-modules)
		      pccl-modules '(pccl-om pccl)
		      emu-modules (cons 'emu-mule emu-modules))
		))
	 )
	((boundp 'NEMACS)
	 (setq poem-modules (cons 'poem-nemacs poem-modules)
	       mcs-modules (cons 'mcs-nemacs mcs-modules))
	 )
	(t
	 (setq poem-modules (cons 'poem-ltn1 poem-modules)
	       mcs-modules (cons 'mcs-ltn1 mcs-modules))
	 ))
  
  (setq emu-modules (append poe-modules poem-modules
			    mcs-modules pccl-modules
			    emu-modules))
  (setq emu-modules (cons 'broken emu-modules))
  )

;;; EMU-ELS ends here