add shortcut for 2midi

diff --git a/ChangeLog b/ChangeLog
index d4917aad5761dddf3ecfda29bdb8006a473002be..994cc90b05c598b12686cc6ef7fcd5895505cf89 100644 (file)
--- 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 3c28d17a0678ecfd887753247db1c9cf4fd3a26b..5946def5652ff34eba01f377990a0e8bd47729a0 100644 (file)
--- 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 e68949b6fd6cc6f1d733bef3abf6a91989899d24..d62f44986492219408a1e87e5576ea783532000d 100644 (file)
--- a/lilypond.words
+++ b/lilypond.words
@@ -355,6 +355,7 @@ SpacingSpanner
 Staff
 \\StaffContainerContext
 \\StaffContext
+StaffGroup
 \\StaffGroupContext
 \\staffheight
 \\staffOne