mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-03 18:50:19 +02:00
2002-10-21 Mikael Djurfeldt <mdj@linnaeus>
* readline.scm (activate-readline): Look for use-emacs-interface option in the guile-user module instead of the-root-module.
This commit is contained in:
parent
cf2c8da9ac
commit
9257da7d0a
1 changed files with 3 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue