* buildscripts/lilypond.words.py: remove.

[lilypond.git] / elisp / lilypond-mode.el

diff --git a/elisp/lilypond-mode.el b/elisp/lilypond-mode.el
index b389086858de61193666c689ba7a31e10bcd16a7..0087f59636f883bf7cafa3b4c929dade41c683de 100644 (file)
--- a/elisp/lilypond-mode.el
+++ b/elisp/lilypond-mode.el
@@ -60,13 +60,13 @@
 Finds file lilypond-words.el from load-path."
   (let ((fn nil)
        (lp load-path)
-       (words-file "lilypond.words.el"))
+       (words-file "lilypond-words.el"))
     (while (and (> (length lp) 0) (not fn))
       (setq fn (concat (car lp) "/" words-file))
       (if (not (file-readable-p fn)) 
          (progn (setq fn nil) (setq lp (cdr lp)))))
     (if (not fn)
-       (progn (message "Warning: `lilypond.words.el' not found in `load-path'. See `lilypond-init.el'.")
+       (progn (message "Warning: `lilypond-words.el' not found in `load-path'. See `lilypond-init.el'.")
               (sit-for 5 0)))
     fn))
 
@@ -1163,6 +1163,17 @@ LilyPond-xdvi-command\t\tcommand to display dvi files -- bit superfluous"
 (load-library "lilypond-font-lock")
 (load-library "lilypond-indent")
 
+
+(defun LilyPond-guile ()
+  (interactive)
+  (require 'ilisp)
+  (guile "lilyguile" (LilyPond-command-expand (cadr (assoc "2Dvi" LilyPond-command-alist))
+                                              (funcall 'LilyPond-master-file)))
+  (comint-default-send (ilisp-process) "(define-module (*anonymous-ly-1*))")
+  (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)"))
+
 (provide 'lilypond-mode)
 ;;; lilypond-mode.el ends here