+ (cond ((featurep 'xemacs)
+ (if (featurep 'file-coding)
+ (setq pces-modules (cons 'pces-xfc (cons 'pces-20 pces-modules)))
+ )
+ (if (featurep 'mule)
+ (setq pces-modules (cons 'pces-xm pces-modules))
+ (setq pces-modules (cons 'pces-raw pces-modules))
+ ))
+ ((featurep 'mule)
+ (cond ((>= emacs-major-version 20)
+ (setq pces-modules
+ (cons 'pces-e20 (cons 'pces-20 pces-modules)))
+ (or (and (fboundp 'set-buffer-multibyte)
+ (subrp (symbol-function 'set-buffer-multibyte)))
+ (setq pces-modules (cons 'pces-e20_2 pces-modules)))
+ )
+ (t
+ ;; for MULE 1.* and 2.*
+ (setq pces-modules (cons 'pces-om pces-modules))
+ )))
+ ((boundp 'NEMACS)
+ ;; for Nemacs and Nepoch
+ (setq pces-modules (cons 'pces-nemacs pces-modules))
+ )
+ (t
+ (setq pces-modules (cons 'pces-raw pces-modules))
+ ))