fontify [-^_][()].

diff --git a/ChangeLog b/ChangeLog
index 8ebd6e252168c39adf44f748653445b80c2f9745..b3ed370381a115950d0dd637f2e5c4eb8691757f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-23  Heikki Junes  <hjunes@cc.hut.fi>
+
+       * lilypond-font-lock.el: Fontify post-notated slurs [-^_][()].
+       
 2003-01-19  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * input/regression/ambitus.ly:  move file.      

diff --git a/lilypond-font-lock.el b/lilypond-font-lock.el
index 2ed452e8717f353115013fc480857031c8149cd0..f6baa5c4a9783a990cae6124a0ab8a2bdd21f250 100644 (file)
--- a/lilypond-font-lock.el
+++ b/lilypond-font-lock.el
@@ -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)