Add preliminary test.

diff --git a/ChangeLog b/ChangeLog
index aa94afd723cb80881badc663f720739b1582c401..ccd6c65cd3924779add46a67a3779a628143e6c2 100644 (file)
--- 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 a0bb8df163477368da5ac20267e2c6c8026ad9fa..21cd641244d11f27916c04c694b50a82a3a0b21b 100644 (file)
--- 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