mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-05 11:40:20 +02:00
Code Activity

2002-10-21 Mikael Djurfeldt <mdj@linnaeus>

Browse source 
* 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:
Rob Browning 2002-10-26 06:17:29 +00:00
parent cf2c8da9ac
commit 9257da7d0a
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guile-readline/readline.scm
View file

@ -200,8 +200,9 @@
(define-public (activate-readline) (define-public (activate-readline)
(if (and (isatty? (current-input-port)) (if (and (isatty? (current-input-port))
(not (and (module-defined? the-root-module 'use-emacs-interface) (not (let ((guile-user-module (resolve-module '(guile-user))))
(module-ref the-root-module 'use-emacs-interface)))) (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)))) (let ((read-hook (lambda () (run-hook before-read-hook))))
(set-current-input-port (readline-port)) (set-current-input-port (readline-port))
(set! repl-reader (set! repl-reader