* Lookup 'use-emacs-interface in the-root-module.

diff --git a/guile-readline/ChangeLog b/guile-readline/ChangeLog
index 7b76205..1fad436 100644 (file)
--- a/guile-readline/ChangeLog
+++ b/guile-readline/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * readline.scm (activate-readline):  Lookup 'use-emacs-interface
+       in the-root-module.
+
 2000-11-24  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
        * readline.c (current_input_getc):  Use more explicit predicate

diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm
index 104647e..23adf43 100644 (file)
--- a/guile-readline/readline.scm
+++ b/guile-readline/readline.scm
@@ -169,9 +169,8 @@
 
 (define-public (activate-readline)
   (if (and (isatty? (current-input-port))
-          (not (and (module-defined? the-root-module
-                                     'use-emacs-interface)
-                    use-emacs-interface)))
+          (not (and (module-defined? the-root-module 'use-emacs-interface)
+                    (module-ref the-root-module 'use-emacs-interface))))
       (let ((read-hook (lambda () (run-hook before-read-hook))))
        (set-current-input-port (readline-port))
        (set! repl-reader

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 530f80c..d543b30 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+2000-12-12  Dirk Herrmann  <D.Herrmann@tu-bs.de>
+
+       * boot-9.scm (top-repl):  Lookup 'use-emacs-interface in
+       the-root-module.
+
 2000-12-07  Neil Jerram  <neil@ossau.uklinux.net>
 
        * emacs.scm (flush-whitespace): Fix spelling typo ("recieving").

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index f9e134f..c674f1b 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -2793,7 +2793,7 @@
 
   ;; Load emacs interface support if emacs option is given.
   (if (and (module-defined? the-root-module 'use-emacs-interface)
-          use-emacs-interface)
+          (module-ref the-root-module 'use-emacs-interface))
       (load-emacs-interface))
 
   ;; Place the user in the guile-user module.