From 1ee963bd1020f2f38800a8a405be132b6d1799c5 Mon Sep 17 00:00:00 2001 From: Heikki Junes Date: Wed, 22 Jan 2003 23:58:02 +0000 Subject: [PATCH] fontify [-^_][()]. --- ChangeLog | 4 ++++ lilypond-font-lock.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 8ebd6e2521..b3ed370381 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-01-23 Heikki Junes + + * lilypond-font-lock.el: Fontify post-notated slurs [-^_][()]. + 2003-01-19 Han-Wen Nienhuys * 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) -- 2.39.5