From 88d59f6166f6247933bfc39444841b0f4c5cbd0e Mon Sep 17 00:00:00 2001 From: Heikki Junes Date: Wed, 15 Jan 2003 23:13:16 +0000 Subject: [PATCH] small fontifying patch. --- ChangeLog | 6 ++++++ lilypond-font-lock.el | 6 +++--- lilypond.words | 4 +++- 3 files changed, 12 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 6fe90534dd..3345a16443 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +2003-01-16 Heikki Junes + + * lilypond-font-lock.el: Fontify post-notated slurs -( and -). + + * lilypond.words: add from Phrasing slur. + 2003-01-15 Heikki Junes * lilypond-mode.el: allow launching multiple ViewPS processes. diff --git a/lilypond-font-lock.el b/lilypond-font-lock.el index a728874bba..2ed452e871 100644 --- 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 dd591d7f67..98c5d20acd 100644 --- 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 -- 2.39.5