guile/guile-core/guile-readline ChangeLog readl...

[Dirk Herrmann]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Dirk Herrmann <address@hidden>  00/12/12 10:06:57

Modified files:
        guile-core/guile-readline: ChangeLog readline.scm 

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

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/guile-readline/ChangeLog.diff?r1=1.45&r2=1.46
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/guile-readline/readline.scm.diff?r1=1.6&r2=1.7

Patches:
Index: guile/guile-core/guile-readline/ChangeLog
diff -u guile/guile-core/guile-readline/ChangeLog:1.45 
guile/guile-core/guile-readline/ChangeLog:1.46
--- guile/guile-core/guile-readline/ChangeLog:1.45      Fri Nov 24 02:38:57 2000
+++ guile/guile-core/guile-readline/ChangeLog   Tue Dec 12 10:06:57 2000
@@ -1,3 +1,8 @@
+2000-12-12  Dirk Herrmann  <address@hidden>
+
+       * readline.scm (activate-readline):  Lookup 'use-emacs-interface
+       in the-root-module.
+
 2000-11-24  Dirk Herrmann  <address@hidden>
 
        * readline.c (current_input_getc):  Use more explicit predicate
Index: guile/guile-core/guile-readline/readline.scm
diff -u guile/guile-core/guile-readline/readline.scm:1.6 
guile/guile-core/guile-readline/readline.scm:1.7
--- guile/guile-core/guile-readline/readline.scm:1.6    Mon Jun 12 07:54:30 2000
+++ guile/guile-core/guile-readline/readline.scm        Tue Dec 12 10:06:57 2000
@@ -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