From: Heikki Junes <heikki.junes@hut.fi>
Date: Mon, 21 Jul 2003 20:20:21 +0000 (+0000)
Subject: syntax-table update.
X-Git-Tag: release/1.7.30~136
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e9f84fa674db720210d6e79b62979d170abc41a9;p=lilypond.git

syntax-table update.
---

diff --git a/ChangeLog b/ChangeLog
index 82f190c4d5..1d2a0915f7 100644
--- 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 98fc4adef8..cb07b331d7 100644
--- 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)) '( ?\] ))