(insert-file-contents-as-binary): Return value.

[elisp/apel.git] / EMU-ELS

diff --git a/EMU-ELS b/EMU-ELS
index 66ad99d..17d9275 100644 (file)
--- a/EMU-ELS
+++ b/EMU-ELS
@@ -1,7 +1,8 @@
 ;;; -*-Emacs-Lisp-*-
-;;;
-;;; $Id: EMU-ELS,v 1.7 1998-04-17 01:09:17 morioka Exp $
-;;;
+
+;; EMU-ELS: list of EMU modules to install
+
+;;; Code:
 
 (setq emu-modules
       (cons
@@ -22,9 +23,10 @@
                      '(emu-latin1) ; for XEmacs without MULE
                      ))
              )
-            ((featurep 'mule)
+            (running-mule-merged-emacs
              ;; for Emacs 20.1 or later
-             (cons (if (= (length "\e$B$"\e(B") 1)
+             (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
                      )