From 9257da7d0a99bc75ce8c6b0bad012eb7cee2e3ae Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Sat, 26 Oct 2002 06:17:29 +0000 Subject: [PATCH] 2002-10-21 Mikael Djurfeldt * readline.scm (activate-readline): Look for use-emacs-interface option in the guile-user module instead of the-root-module. --- guile-readline/readline.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/guile-readline/readline.scm b/guile-readline/readline.scm index 06d6cf8f2..b592785fb 100644 --- a/guile-readline/readline.scm +++ b/guile-readline/readline.scm @@ -200,8 +200,9 @@ (define-public (activate-readline) (if (and (isatty? (current-input-port)) - (not (and (module-defined? the-root-module 'use-emacs-interface) - (module-ref the-root-module 'use-emacs-interface)))) + (not (let ((guile-user-module (resolve-module '(guile-user)))) + (and (module-defined? guile-user-module 'use-emacs-interface) + (module-ref guile-user-module 'use-emacs-interface))))) (let ((read-hook (lambda () (run-hook before-read-hook)))) (set-current-input-port (readline-port)) (set! repl-reader