From: Heikki Junes <heikki.junes@hut.fi>
Date: Wed, 22 Jan 2003 23:58:02 +0000 (+0000)
Subject: fontify [-^_][()].
X-Git-Tag: release/1.7.13~29
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1ee963bd1020f2f38800a8a405be132b6d1799c5;p=lilypond.git

fontify [-^_][()].
---

diff --git a/ChangeLog b/ChangeLog
index 8ebd6e2521..b3ed370381 100644
--- 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 2ed452e871..f6baa5c4a9 100644
--- 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)