From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 12 Jun 2002 08:25:19 +0000 (+0000)
Subject: heikki pats
X-Git-Tag: release/1.5.61~11
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ad45a3bda4d60ac11859d2ac56883346d7cf630c;p=lilypond.git

heikki pats
---

diff --git a/ChangeLog b/ChangeLog
index 44561f31d0..8dc0c187b6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-12  Heikki Junes  <heikki.junes@hut.fi>
+
+	* lilypond-mode.el: Propose saving before applying a command:
+	for saved buffer set default command to LilyPond.
+
 2002-06-11  Jan Nieuwenhuizen  <janneke@gnu.org>
 
 	* buildscripts/mutopia-index.py (headertext_nopics): Add missing
diff --git a/lilypond-mode.el b/lilypond-mode.el
index ecba6f0084..5f194c5946 100644
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -258,8 +258,10 @@ Must be the car of an entry in `LilyPond-command-alist'."
 			     (LilyPond-check-files (concat name ".tex")
 						   (list name)
 						   LilyPond-file-extensions)
-			   ;; FIXME
-			   (LilyPond-save-buffer)
+			   (if (buffer-modified-p) 
+			       (if (y-or-n-p "Save buffer before next command? ")
+				   (progn (LilyPond-save-buffer)
+					  (setq LilyPond-command-default "LilyPond"))))
 			   ;;"LilyPond"
 			   LilyPond-command-default))
 			(t LilyPond-command-default)))