emacs mode request

[Heikki Johannes Junes]

> I have a tiny annoyance in the emacs mode which usually makes revert
> to the command line: when I have lily-tex-xdvi'd a file, I usually
> make some edits to the .ly file.  When I press C-c C-c I would expect
> the emacs mode to detect the edits, and suggest that I run LilyPond
> again. Currently, the default is View.

What about the following patch. It is also more careful about saving the
file by proposing saving. Earlier saving was done silently.

Index: ChangeLog
===================================================================
RCS file: /home/lilypond/lilypond/ChangeLog,v
retrieving revision 1.185
diff -p -u -r1.185 ChangeLog
--- ChangeLog   11 Jun 2002 15:05:02 -0000      1.185
+++ ChangeLog   11 Jun 2002 23:58:59 -0000
@@ -1,3 +1,8 @@
+2002-06-12  Heikki Junes  <address@hidden>
+
+       * lilypond-mode.el: Propose saving before applying a command:
+       for saved buffer set default command to LilyPond.
+
 2002-06-11  Jan Nieuwenhuizen  <address@hidden>
 
        * buildscripts/mutopia-index.py (headertext_nopics): Add missing
Index: lilypond-mode.el
===================================================================
RCS file: /home/lilypond/lilypond/lilypond-mode.el,v
retrieving revision 1.39
diff -p -u -r1.39 lilypond-mode.el
--- lilypond-mode.el    3 Jun 2002 08:40:20 -0000       1.39
+++ lilypond-mode.el    11 Jun 2002 23:59:00 -0000
@@ -258,8 +258,10 @@ Must be the car of an entry in `LilyPond
                             (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)))
--
      Heikki Junes