small fontifying patch.

diff --git a/ChangeLog b/ChangeLog
index 6fe90534dde9a8a0f3eeb3fc8cd7c810a3f752ce..3345a1644350fec54093c42fb0a2de4987a5fbbf 100644 (file)
--- 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 a728874bba8f1a2fc4d625bb751206989e95d090..2ed452e8717f353115013fc480857031c8149cd0 100644 (file)
--- 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 dd591d7f671ff72b030070c26fa5566ff53b242f..98c5d20acdc27f6e0e0280af58ccaa19a59f99c4 100644 (file)
--- 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