dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Dirk Herrmann 2000-12-12 18:10:56 +00:00
commit 6b098fecdc
4 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
guile-readline/ChangeLog
View file

@ -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

5
guile-readline/readline.scm
View file

@ -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

5
ice-9/ChangeLog
View file

@ -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").

2
ice-9/boot-9.scm
View file

@ -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.