(decode-coding-string): Regard integer as coding-system.

[elisp/apel.git] / EMU-ELS

diff --git a/EMU-ELS b/EMU-ELS
index 8b001da..0426c5e 100644 (file)
--- a/EMU-ELS
+++ b/EMU-ELS
@@ -37,11 +37,20 @@
                      mcs-modules (cons 'mcs-e20 (cons 'mcs-20
                                                       mcs-modules))
                      pccl-modules (cons 'pccl-20 pccl-modules))
+
+               (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 (cons (pccl-om pccl-modules)))
+                     pccl-modules (cons 'pccl-om pccl-modules))
                ))
         )
        ((boundp 'NEMACS)