From: Heikki Junes <heikki.junes@hut.fi>
Date: Mon, 15 Sep 2003 22:22:36 +0000 (+0000)
Subject:        * buildscripts/lilypond.words.py: add all slur types, suppose
X-Git-Tag: release/1.9.6~3
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=59bcb6cd0a5ef9e6d8b08dc27a948f22822a9e55;p=lilypond.git

   * buildscripts/lilypond.words.py: add all slur types, suppose
       everything is postfixed by dropping `-' -marks.
---

diff --git a/ChangeLog b/ChangeLog
index 9526998150..24e46c852a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-09-16  Heikki Junes  <hjunes@cc.hut.fi>
+
+	* buildscripts/lilypond.words.py: add all slur types to Emacs
+	insertion menu, suppose everything is postfixed by dropping 
+	unnecessary `-' -marks.
+
 2003-09-15  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* lily/stem.cc (get_default_stem_end_position): lengthen stems for
diff --git a/buildscripts/lilypond.words.py b/buildscripts/lilypond.words.py
index 338b65d523..32fcbf2f4d 100755
--- a/buildscripts/lilypond.words.py
+++ b/buildscripts/lilypond.words.py
@@ -99,17 +99,19 @@ else:
 
 # the menu in lilypond-mode.el
 for line in [
-'-/( - _ -/) -',
-'-/[ - _ -/] -',
-'-///( - _ -///) -',
+'/( - _ /) -',
+'/[ - _ /] -',
+'< - _ > -',
+'<< - _ >> -',
+'///( - _ ///) -',
 '///[ - _ ///] -',
-'-///< - _ -///! -',
-'-///> - _ -///! -',
+'///< - _ ///! -',
+'///> - _ ///! -',
 '//center - / << _ >> -',
 '//column - / << _ >> -',
 '//context/ Staff/ = - % { _ } -',
 '//context/ Voice/ = - % { _ } -',
-'-//markup - { _ } -',
+'//markup - { _ } -',
 '//notes - { _ } -',
 '//relative - % { _ } -',
 '//score - { //n /? //simultaneous { //n _ //n } /! //n //paper {  } //n /? //midi {  } //n /! } //n -',