From: hjunes <hjunes>
Date: Wed, 15 Jan 2003 23:13:16 +0000 (+0000)
Subject: small fontifying patch.
X-Git-Tag: release/1.7.25~462
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=5f5369fe9712cf0e57f2c6817f47fd5d3b36e38e;p=lilypond.git

small fontifying patch.
---

diff --git a/ChangeLog b/ChangeLog
index 6fe90534dd..3345a16443 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-01-16  Heikki Junes  <hjunes@cc.hut.fi>
+
+	* lilypond-font-lock.el: Fontify post-notated slurs -( and -).
+
+	* lilypond.words: add from Phrasing slur.
+	
 2003-01-15  Heikki Junes  <hjunes@cc.hut.fi>
 
 	* lilypond-mode.el: allow launching multiple ViewPS processes.
diff --git a/lilypond-font-lock.el b/lilypond-font-lock.el
index a728874bba..2ed452e871 100644
--- a/lilypond-font-lock.el
+++ b/lilypond-font-lock.el
@@ -10,7 +10,7 @@
 ;; Author: 1995-1996 Barry A. Warsaw
 ;;         1992-1994 Tim Peters
 ;; Created:       Feb 1992
-;; Version:       1.7.11
+;; Version:       1.7.12
 ;; Last Modified: 13DEC2003
 ;; Keywords: lilypond languages music notation
 
@@ -91,9 +91,9 @@
       '("\\(\\(-.\\)+\\|[^-^_]\\)\\([<>]+\\(\\(128\\|6?4\\|3?2\\|16?\\|8\\|\\\\\\(breve\\|longa\\)\\)[.]*\\([ \t]*[*][ \t]*[0-9]+\\(/[1-9][0-9]*\\)?\\)?\\)?\\|\\\\\\\\\\)" 3 font-lock-function-name-face t)
 
 ;; "on top", ... expressional grouping:
-;;               - slurs \( () \)
+;;               - slurs ( ), \( \), -( -)
 ;;               - hairpins \<, \>, \! 
-      '("\\(\\\\[(<!>)]\\|[()]\\)" 0 font-lock-builtin-face t)
+      '("\\(\\\\[(<!>)]\\|-?[()]\\)" 0 font-lock-builtin-face t)
 
 ;; "on top", ... lyrics-mode: fontify everything between '{' and '}'
       '("\\(\\\\lyrics[^{]*{\\)\\([^}]*\\)" 2 font-lock-string-face t)
diff --git a/lilypond.words b/lilypond.words
index dd591d7f67..98c5d20acd 100644
--- a/lilypond.words
+++ b/lilypond.words
@@ -200,7 +200,6 @@ mezzosoprano
 \\minor
 \\mixolydian
 \\mm
-\\mm
 \\modernAccidentals
 \\modernCautionaries
 \\modernVoiceAccidentals
@@ -253,6 +252,9 @@ NoteNames
 \\pbow
 \\penalty
 percent
+\\phrasingSlurBoth
+\\phrasingSlurDown
+\\phrasingSlurUp
 \\phrygian
 \\Piano
 \\pianoAccidentals