From: Heikki Junes <heikki.junes@hut.fi>
Date: Wed, 21 May 2003 23:27:51 +0000 (+0000)
Subject: Add preliminary test.
X-Git-Tag: release/1.7.20~24
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=522b01280635a42992b4490644b71abf843e6436;p=lilypond.git

Add preliminary test.
---

diff --git a/ChangeLog b/ChangeLog
index aa94afd723..ccd6c65cd3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-05-22  Heikki Junes  <hjunes@cc.hut.fi>
+
+	* lilypond-indent.el: Add preliminary test for closing \] and \).
+	
 2003-05-21  Juergen Reuter  <reuter@ipd.uka.de>
 
 	* lily/gregorian-ligature-engraver.cc,
diff --git a/lilypond-indent.el b/lilypond-indent.el
index a0bb8df163..21cd641244 100644
--- a/lilypond-indent.el
+++ b/lilypond-indent.el
@@ -451,6 +451,16 @@ the syntax table"
   (let ((oldpos (point)))
     (self-insert-command 1)
     (setq close-char (char-before (point)))
+    ;; Test if a ligature \] or expressional slur \) was encountered;
+    ;; the result is now in backslashed-close-char, BUT
+    ;; the result should also be used  -- match also \] or \) !
+    ;; Thus, update: LilyPond-parens-regexp-alist, LilyPond-blink-matching-open
+    (setq backslashed-close-char nil)
+    (if (memq close-char '(?] ?\)))
+      (progn 
+	(setq np 0)
+	(while (eq (char-before (- (point) (setq np (+ np 1)))) ?\\)
+	  (setq backslashed-close-char (not backslashed-close-char)))))
     (if (and blink-matching-paren
 	     (not (LilyPond-inside-string-or-comment-p))
 	     (save-excursion (re-search-backward