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

* emacs.scm (emacs-load): New feature: Eval in specified module.

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-06-15 13:00:35 +00:00
parent 4ffd142c03
commit ef0d04e5c3
2 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,3 +1,7 @@
1998-06-15 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* emacs.scm (emacs-load): New feature: Eval in specified module.
1998-06-14 Mikael Djurfeldt <mdj@mdj.nada.kth.se> 1998-06-14 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* readline.scm: Typo in regex module name. * readline.scm: Typo in regex module name.

15
ice-9/emacs.scm
View file

@ -132,11 +132,16 @@
(lambda () (lambda ()
(let loop ((endp (flush-whitespace %%load-port))) (let loop ((endp (flush-whitespace %%load-port)))
(if (not endp) (if (not endp)
(let ((result (begin
(start-stack read-and-eval! (save-module-excursion
(read-and-eval! %%load-port)))) (lambda ()
(if interactivep (if module
(result-to-emacs result)) (set-current-module (resolve-module module #f)))
(let ((result
(start-stack read-and-eval!
(read-and-eval! %%load-port))))
(if interactivep
(result-to-emacs result)))))
(loop (flush-whitespace %%load-port))) (loop (flush-whitespace %%load-port)))
(begin (begin
(load-acknowledge)))) (load-acknowledge))))