heikki pats

diff --git a/ChangeLog b/ChangeLog
index 44561f31d0c462da991acd2e36948717e9dff7d6..8dc0c187b6c317f9ea7b2c104675a7f95df602d0 100644 (file)
--- 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 ecba6f0084dcf637bc3fac1c875e0b99c3f646ff..5f194c594658bc183da09ab7984719d039205964 100644 (file)
--- 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)))