From 522b01280635a42992b4490644b71abf843e6436 Mon Sep 17 00:00:00 2001 From: Heikki Junes Date: Wed, 21 May 2003 23:27:51 +0000 Subject: [PATCH] Add preliminary test. --- ChangeLog | 4 ++++ lilypond-indent.el | 10 ++++++++++ 2 files changed, 14 insertions(+) diff --git a/ChangeLog b/ChangeLog index aa94afd723..ccd6c65cd3 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-05-22 Heikki Junes + + * lilypond-indent.el: Add preliminary test for closing \] and \). + 2003-05-21 Juergen Reuter * 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 -- 2.39.5