From 738f52147669694425ae88064498b1cc383c1104 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 7 Aug 2002 11:55:23 +0000 Subject: [PATCH] emacs mode --- ChangeLog | 6 +++++- lilypond-mode.el | 10 +++++++--- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index a66ec39589..4143e6c1c6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,11 @@ +2002-08-06 Heikki Junes + + * lilypond-mode.el: Also "C-xC-s" sets default command to LilyPond. + 2002-08-05 Rune Zedeler * mf/feta-eindelijk.mf: Fix silly typo in 16th and shorter rests. - + 2002-08-05 Han-Wen Nienhuys * stepmake/bin/make-version.py: robustify. diff --git a/lilypond-mode.el b/lilypond-mode.el index fdcc28df9f..6c947e00e6 100644 --- 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) -- 2.39.5