From 901c2b7a38ef37ef69c4066c24286aea6f50f58d Mon Sep 17 00:00:00 2001 From: hjunes Date: Thu, 12 Jun 2003 10:14:34 +0000 Subject: [PATCH] match unending strings at eof. --- ChangeLog | 2 ++ lilypond-font-lock.el | 5 +++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 33745a9e2b..816e52bc9e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -10,6 +10,8 @@ * Documentation/user/music-glossary.tely: fix: change รค to @"a. + * lilypond-font-lock.el: match unending string at eof. + 2003-06-10 Graham Percival * input/test/beam-abbrev.ly input/test/default-neutral-dir.ly diff --git a/lilypond-font-lock.el b/lilypond-font-lock.el index 8c53441510..6e1e6ee91b 100644 --- a/lilypond-font-lock.el +++ b/lilypond-font-lock.el @@ -104,8 +104,9 @@ ;; "on top", ... (multiline-)scheme: try find slurs up to 7th '("[_^-]?#\\(#[ft]\\|-?[0-9.]+\\|\"[^\"]*\"\\|['`]?[a-zA-Z:-]+\\|['`]?([^()]*\\(([^()]*\\(([^()]*\\(([^()]*\\(([^()]*\\(([^()]*\\(([^)]*)[^()]*\\)*)[^()]*\\)*)[^()]*\\)*)[^()]*\\)*)[^()]*\\)*)[^()]*\\)*[^)]*)\\)" 0 font-lock-string-face t) -;; "on top", ... strings - '("\\([_^-]?\"\\([^\"\\\\]\\|\\\\.\\|\\\\\n\\)*\"\\)" 0 font-lock-string-face t) +;; "on top", ... strings, match also unending strings at eof: +;; if '\n' was not found, it must be '$' which is eof (?). + '("\\([_^-]?\"\\([^\"\\\\]\\|\\\\.\\|\\\\\n\\)*\\(\"\\|$\\)\\)" 0 font-lock-string-face t) ;; "on top", ... (multiline-)comments '("\\(%\\({[^%]*%\\(}\\|\\([^}][^%]*%\\)+}\\)\\|.*\\)\\)" 0 font-lock-comment-face t) -- 2.39.5