From: Heikki Junes <heikki.junes@hut.fi>
Date: Sat, 11 Jan 2003 23:13:30 +0000 (+0000)
Subject: midi stopping fix.
X-Git-Tag: release/1.7.12~6
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=f07aa11356d6fd48713214870efcbd7bd269e252;p=lilypond.git

midi stopping fix.
---

diff --git a/ChangeLog b/ChangeLog
index c821c4289e..bfa626efe3 100644
--- 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 0bf1523305..468f042bc2 100644
--- 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))