* elisp/lilypond-mode.el (LilyPond-guile): set current module to

        (*anonymous-ly-0*) iso. (*anonymous-ly-1*)

diff --git a/ChangeLog b/ChangeLog
index a7d36b262e5fb2b0b395b44af8c4baa810fbb086..44d24469fb9de6f489967fee9c15ab2d53048bff 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-06-28  Nicolas Sceaux  <nicolas.sceaux@free.fr>
+
+       * elisp/lilypond-mode.el (LilyPond-guile): set current module to
+       (*anonymous-ly-0*) iso. (*anonymous-ly-1*)
+
 2004-06-28  Jan Nieuwenhuizen  <janneke@gnu.org>
 
        * buildscripts/guile-gnome.sh (PATH): GUILE CVS is still fubarred.

diff --git a/elisp/lilypond-mode.el b/elisp/lilypond-mode.el
index 17bca7a5992cd84a68cc5b1a8076a85697f91958..d37c7d4c51e0521237e6fd51b02590d14cddea76 100644 (file)
--- a/elisp/lilypond-mode.el
+++ b/elisp/lilypond-mode.el
@@ -1179,7 +1179,7 @@ LilyPond-xdvi-command\t\tcommand to display dvi files -- bit superfluous"
   (require 'ilisp)
   (guile "lilyguile" (LilyPond-command-expand (cadr (assoc "2Dvi" LilyPond-command-alist))
                                               (funcall 'LilyPond-get-master-file)))
-  (comint-default-send (ilisp-process) "(define-module (*anonymous-ly-1*))")
+  (comint-default-send (ilisp-process) "(define-module (*anonymous-ly-0*))")
   (comint-default-send (ilisp-process) "(set! %load-path (cons \"/usr/share/ilisp/\" %load-path))")
   (comint-default-send (ilisp-process) "(use-modules (guile-user) (guile-ilisp))")
   (comint-default-send (ilisp-process) "(newline)"))