syntax-table update.

diff --git a/ChangeLog b/ChangeLog
index 82f190c4d5b745073ffb3dc2ed8560abf9e68dca..1d2a0915f770e84cdadfcf20a998050b36857ae9 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-07-20  Heikki Junes  <hjunes@cc.hut.fi>
+
+       * lilypond-font-lock.el: do not try to match two-char slurs \) \].
+
 2003-07-21  Jan Nieuwenhuizen  <janneke@gnu.org>
 
        * scm/output-sodipodi.scm (svg-header): Fix typo.

diff --git a/lilypond-font-lock.el b/lilypond-font-lock.el
index 98fc4adef8ac8a94971569f2759775e228f236a2..cb07b331d75f0db39381d356091610c49e768491 100644 (file)
--- a/lilypond-font-lock.el
+++ b/lilypond-font-lock.el
@@ -178,6 +178,8 @@
   (cond ((nth 3 context)) ; inside string
        ((nth 4 context)) ; inside a comment
        ((eq (char-syntax (char-before (point))) ?\\)) ; found escape-char
+       ((and (eq (char-syntax (char-before (- (point) 1))) ?\\)
+             (memq (char-before (point)) '( ?\) ?\] )))) ; found escape-char
        ((memq (char-before (point)) '( ?\) ))
         (LilyPond-mode-set-syntax-table '( ?\( ?\) )))
        ((memq (char-before (point)) '( ?\] ))