emacs mode

diff --git a/ChangeLog b/ChangeLog
index a66ec39589247fd660fc26dcf6e409fb43e5a421..4143e6c1c69a76a9c6f63847b97fc287d18d0698 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,11 @@
+2002-08-06  Heikki Junes <hjunes@cc.hut.fi>
+
+       * lilypond-mode.el: Also "C-xC-s" sets default command to LilyPond.
+
 2002-08-05  Rune Zedeler <rune@zedeler.dk>
 
        * mf/feta-eindelijk.mf: Fix silly typo in 16th and shorter rests.
-       
+
 2002-08-05  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * stepmake/bin/make-version.py: robustify.

diff --git a/lilypond-mode.el b/lilypond-mode.el
index fdcc28df9f162670465e9132de24b1311e66190d..6c947e00e6a35a39af9914bbd24193c9b3cc4b11 100644 (file)
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -106,7 +106,11 @@ in LilyPond-include-path."
 
 ;; do we still need this, now that we're using compile-internal?
 (defun LilyPond-save-buffer ()
-  (if (buffer-modified-p) (save-buffer)))
+  "Save buffer and set default command for compiling."
+  (interactive)
+  (if (buffer-modified-p)
+      (progn (save-buffer)
+            (setq LilyPond-command-default "LilyPond"))))
 
 ;;; return (dir base ext)
 (defun split-file-name (name)
@@ -260,8 +264,7 @@ Must be the car of an entry in `LilyPond-command-alist'."
                                                   LilyPond-file-extensions)
                           (if (buffer-modified-p) 
                               (if (y-or-n-p "Save buffer before next command? ")
-                                  (progn (LilyPond-save-buffer)
-                                         (setq LilyPond-command-default "LilyPond"))))
+                                  (LilyPond-save-buffer)))
                           ;;"LilyPond"
                           LilyPond-command-default))
                        (t LilyPond-command-default)))
@@ -511,6 +514,7 @@ command."
   (define-key LilyPond-mode-map "\C-c\C-v" 'LilyPond-command-view)
   (define-key LilyPond-mode-map "\C-c\C-p" 'LilyPond-command-viewps)
   (define-key LilyPond-mode-map "\C-c\C-m" 'LilyPond-command-next-midi)
+  (define-key LilyPond-mode-map "\C-x\C-s" 'LilyPond-save-buffer)
   (define-key LilyPond-mode-map "\C-cf" 'font-lock-fontify-buffer)
   (define-key LilyPond-mode-map "\C-ci" 'LilyPond-quick-note-insert)
   (define-key LilyPond-mode-map "\C-cn" 'LilyPond-insert-tag-notes)