midi stopping fix.

diff --git a/ChangeLog b/ChangeLog
index c821c4289e855a9a6059a886d0c12d381b9768df..bfa626efe380f7bd381f123b51d40cf41b522c2b 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-01-12  Heikki Junes  <hjunes@cc.hut.fi>
+
+       * lilypond-mode.el: propose recompiling midi while invoking playing,
+       not while stopping playing.
+
 2003-01-11  Heikki Junes  <hjunes@cc.hut.fi>
 
        * lilypond.words: add one.

diff --git a/lilypond-mode.el b/lilypond-mode.el
index 0bf1523305b8a166f0d244b6b6d7d1bd371e947a..468f042bc2ae11b619935f1fe889a50fbcd7c669 100644 (file)
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -583,16 +583,6 @@ command."
                      (LilyPond-shell-process name buffer-xdvi command)))
                  (LilyPond-shell-process name buffer-xdvi command)))
            (progn
-             (if (member name (list "Midi" "MidiAll"))
-                 (if (file-newer-than-file-p
-                      (LilyPond-master-file)
-                      (concat (substring (LilyPond-master-file) 0 -3) ".midi"))
-                     (if (y-or-n-p "Midi older than source. Reformat midi?")
-                         (progn
-                           (LilyPond-command-formatmidi)
-                           (while (LilyPond-running)
-                             (message "Starts playing midi once it is built.")
-                             (sit-for 0 100))))))
              (if (string-equal name "Midi")
                  (progn
                    (setq command (concat LilyPond-midi-command " " (LilyPond-string-current-midi)))
@@ -602,6 +592,16 @@ command."
                  (progn
                    (setq command (concat LilyPond-all-midi-command " " (LilyPond-string-all-midi)))
                    (LilyPond-kill-midi))) ; stop and start playing
+             (if (and (member name (list "Midi" "MidiAll")) job-string)
+                 (if (file-newer-than-file-p
+                      (LilyPond-master-file)
+                      (concat (substring (LilyPond-master-file) 0 -3) ".midi"))
+                     (if (y-or-n-p "Midi older than source. Reformat midi?")
+                         (progn
+                           (LilyPond-command-formatmidi)
+                           (while (LilyPond-running)
+                             (message "Starts playing midi once it is built.")
+                             (sit-for 0 100))))))
              (if (member name (list "LilyPond" "TeX" "2Midi" "2PS" "2Dvi" 
                                     "Book" "LaTeX"))
                  (if (setq jobs (LilyPond-running))