From: Heikki Junes <heikki.junes@hut.fi>
Date: Thu, 12 Dec 2002 01:28:34 +0000 (+0000)
Subject: fontify lyrics
X-Git-Tag: release/1.7.10~23
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=8feedfb1ec20a9450ecabd4cbf43675743f3ae3a;p=lilypond.git

fontify lyrics
---

diff --git a/ChangeLog b/ChangeLog
index 994cc90b05..8f7915c3ed 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,8 @@
 
 	* lilypond-mode.el: add shortcut for 2midi
 
+	* lilypond-font-lock.el: fontify lyrics
+
 2002-12-10  Rune Zedeler  <rz@daimi.au.dk>
 
 	* scm/drums.scm : use 1.7.x names.
diff --git a/lilypond-font-lock.el b/lilypond-font-lock.el
index 6970c8f9c4..f4cf55dd53 100644
--- a/lilypond-font-lock.el
+++ b/lilypond-font-lock.el
@@ -10,8 +10,8 @@
 ;; Author: 1995-1996 Barry A. Warsaw
 ;;         1992-1994 Tim Peters
 ;; Created:       Feb 1992
-;; Version:       1.7.8
-;; Last Modified: 23NOV2002
+;; Version:       1.7.9
+;; Last Modified: 12DEC2002
 ;; Keywords: lilypond languages music notation
 
 ;; This software is provided as-is, without express or implied
@@ -25,7 +25,7 @@
 ;;
 
 ;; TODO:
-;;   - handle lexer modes (\header, \melodic, \lyric) etc.
+;;   - handle lexer modes (\header, \melodic) etc.
 
 (defconst LilyPond-font-lock-keywords
   (let* ((kwregex (mapconcat (lambda (x) (concat "\\" x))  LilyPond-keywords "\\|"))
@@ -87,6 +87,9 @@
 ;; "on top", ... ties ~, slurs \( () \), hairpins \<, \>, \! 
       '("\\(\\\\[(<!>)]\\|[(~)]\\)" 0 font-lock-builtin-face t)
 
+;; "on top", ... lyrics-mode: fontify everything between '{' and '}'
+      '("\\(\\\\lyrics[^{]*{\\)\\([^}]*\\)" 2 font-lock-string-face t)
+
 ;; "on top", ... (multiline-)scheme: try find slurs up to 7th
       '("[_^-]?#\\(#[ft]\\|-?[0-9.]+\\|\"[^\"]*\"\\|['`]?[a-zA-Z-:]+\\|['`]?([^()]*\\(([^()]*\\(([^()]*\\(([^()]*\\(([^()]*\\(([^()]*\\(([^)]*)[^()]*\\)*)[^()]*\\)*)[^()]*\\)*)[^()]*\\)*)[^()]*\\)*)[^()]*\\)*[^)]*)\\)" 0 font-lock-string-face t)