guile/guile-core/ice-9 ChangeLog emacs.scm

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/10/08 08:40:15

Modified files:
        guile-core/ice-9: ChangeLog emacs.scm 

Log message:
        * emacs.scm (%%load-port, %%emacs-load, %%emacs-eval-request,
        %%emacs-select-frame, %%emacs-frame-eval, %%emacs-symdoc,
        %%apropos-internal): Use module-define! instead of
        builtin-variable.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/ChangeLog.diff?cvsroot=OldCVS&tr1=1.483&tr2=1.484&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/ice-9/emacs.scm.diff?cvsroot=OldCVS&tr1=1.23&tr2=1.24&r1=text&r2=text

Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.483 
guile/guile-core/ice-9/ChangeLog:1.484
--- guile/guile-core/ice-9/ChangeLog:1.483      Mon Sep 24 07:12:22 2001
+++ guile/guile-core/ice-9/ChangeLog    Mon Oct  8 08:40:14 2001
@@ -1,3 +1,10 @@
+2001-10-08  Mikael Djurfeldt  <address@hidden>
+
+       * emacs.scm (%%load-port, %%emacs-load, %%emacs-eval-request,
+       %%emacs-select-frame, %%emacs-frame-eval, %%emacs-symdoc,
+       %%apropos-internal): Use module-define! instead of
+       builtin-variable.
+
 2001-09-24  Mikael Djurfeldt  <address@hidden>
 
        * boot-9.scm (process-define-module): Added :re-export.
Index: guile/guile-core/ice-9/emacs.scm
diff -u guile/guile-core/ice-9/emacs.scm:1.23 
guile/guile-core/ice-9/emacs.scm:1.24
--- guile/guile-core/ice-9/emacs.scm:1.23       Sun Jun  3 19:29:45 2001
+++ guile/guile-core/ice-9/emacs.scm    Mon Oct  8 08:40:14 2001
@@ -1,4 +1,4 @@
-;;;;   Copyright (C) 1996, 1997, 1998, 1999, 2000 Free Software Foundation, 
Inc.
+;;;;   Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001 Free Software 
Foundation, Inc.
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -278,10 +278,19 @@
 
 ;;; A fix to get the emacs interface to work together with the module system.
 ;;;
-(variable-set! (builtin-variable '%%load-port) load-port)
-(variable-set! (builtin-variable '%%emacs-load) emacs-load)
-(variable-set! (builtin-variable '%%emacs-eval-request) emacs-eval-request)
-(variable-set! (builtin-variable '%%emacs-select-frame) emacs-select-frame)
-(variable-set! (builtin-variable '%%emacs-frame-eval) emacs-frame-eval)
-(variable-set! (builtin-variable '%%emacs-symdoc) emacs-symdoc)
-(variable-set! (builtin-variable '%%apropos-internal) apropos-internal)
+(for-each (lambda (name value)
+           (module-define! the-root-module name value))
+         '(%%load-port
+           %%emacs-load
+           %%emacs-eval-request
+           %%emacs-select-frame
+           %%emacs-frame-eval
+           %%emacs-symdoc
+           %%apropos-internal)
+         (list load-port
+               emacs-load
+               emacs-eval-request
+               emacs-select-frame
+               emacs-frame-eval
+               emacs-symdoc
+               apropos-internal))