From 342e46d5ae3a32ac47f677439123d320e5fb0b29 Mon Sep 17 00:00:00 2001
From: Heikki Junes <heikki.junes@hut.fi>
Date: Thu, 12 Dec 2002 00:13:53 +0000
Subject: [PATCH] add shortcut for 2midi

---
 ChangeLog        | 4 ++++
 lilypond-mode.el | 9 ++++++++-
 lilypond.words   | 1 +
 3 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index d4917aad57..994cc90b05 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-12-10  Heikki Junes <hjunes@cc.hut.fi>
+
+	* lilypond-mode.el: add shortcut for 2midi
+
 2002-12-10  Rune Zedeler  <rz@daimi.au.dk>
 
 	* scm/drums.scm : use 1.7.x names.
diff --git a/lilypond-mode.el b/lilypond-mode.el
index 3c28d17a06..5946def565 100644
--- a/lilypond-mode.el
+++ b/lilypond-mode.el
@@ -472,6 +472,12 @@ Must be the car of an entry in `LilyPond-command-alist'."
   (LilyPond-command (LilyPond-command-menu "2PS") 'LilyPond-master-file)
 )
 
+(defun LilyPond-command-formatmidi ()
+  "Format the midi output of the current document."
+  (interactive)
+  (LilyPond-command (LilyPond-command-menu "2Midi") 'LilyPond-master-file)
+)
+
 (defun LilyPond-command-smartview ()
   "View the dvi output of current document."
   (interactive)
@@ -634,6 +640,7 @@ command."
   (define-key LilyPond-mode-map "\C-c\C-b" 'LilyPond-command-buffer)
   (define-key LilyPond-mode-map "\C-c\C-k" 'LilyPond-kill-jobs)
   (define-key LilyPond-mode-map "\C-c\C-c" 'LilyPond-command-master)
+  (define-key LilyPond-mode-map "\C-cm" 'LilyPond-command-formatmidi)
   (define-key LilyPond-mode-map "\C-c\C-d" 'LilyPond-command-formatdvi)
   (define-key LilyPond-mode-map "\C-c\C-f" 'LilyPond-command-formatps)
   (define-key LilyPond-mode-map "\C-c\C-s" 'LilyPond-command-smartview)
@@ -927,7 +934,7 @@ command."
 	  '([ "TeX" (LilyPond-command (LilyPond-command-menu "TeX") 'LilyPond-master-file) ])
 	  '([ "2Dvi" LilyPond-command-formatdvi t])
 	  '([ "2PS" LilyPond-command-formatps t])
-	  '([ "2Midi" (LilyPond-command (LilyPond-command-menu "2Midi") 'LilyPond-master-file)])
+	  '([ "2Midi" LilyPond-command-formatmidi t])
 	  '([ "Book" (LilyPond-command (LilyPond-command-menu "Book") 'LilyPond-master-file) ])
 	  '([ "LaTeX" (LilyPond-command (LilyPond-command-menu "LaTeX") 'LilyPond-master-file) ])
 	  '([ "Kill jobs" LilyPond-kill-jobs t])
diff --git a/lilypond.words b/lilypond.words
index e68949b6fd..d62f449864 100644
--- a/lilypond.words
+++ b/lilypond.words
@@ -355,6 +355,7 @@ SpacingSpanner
 Staff
 \\StaffContainerContext
 \\StaffContext
+StaffGroup
 \\StaffGroupContext
 \\staffheight
 \\staffOne
-- 
2.39.5