diff options
| author | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2004-03-13 17:01:57 +0000 |
|---|---|---|
| committer | Han-Wen Nienhuys <hanwen@xs4all.nl> | 2004-03-13 17:01:57 +0000 |
| commit | d98c876a6e6f699e71fbb3a3fe5af882b4274223 (patch) | |
| tree | acae5ba7b2c91c8307f3ae26512373d906346dbd /elisp | |
| parent | 429c948538f2940395b4f8e385bd999f367f4cb9 (diff) | |
* scm/new-font.scm: new file. Tree based font lookup.
* scm/lily.scm (assoc-get): take default argument. Remove
assoc-get-default.
(chain-assoc-get): use chain-assoc-get everywhere.
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/lilypond-mode.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/elisp/lilypond-mode.el b/elisp/lilypond-mode.el index b389086858..fb53bb0358 100644 --- a/elisp/lilypond-mode.el +++ b/elisp/lilypond-mode.el @@ -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 |