From: Heikki Junes Date: Thu, 12 Jun 2003 10:14:34 +0000 (+0000) Subject: match unending strings at eof. X-Git-Tag: release/1.7.21~15 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1c528d255d3962e801e33c1068ec53b3dc47fe72;p=lilypond.git match unending strings at eof. --- 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)