From: Heikki Junes <heikki.junes@hut.fi>
Date: Tue, 3 Jun 2003 20:40:31 +0000 (+0000)
Subject: no argument in LilyPond-blink-matching-open.
X-Git-Tag: release/1.7.21~48
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8c4babf1dcd8120fc581c4ecd4206e1ffad1fa5b;p=lilypond.git

no argument in LilyPond-blink-matching-open.
---

diff --git a/ChangeLog b/ChangeLog
index 1c29114411..e577badced 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-04  Heikki Junes  <hjunes@cc.hut.fi>
+
+	* lilypond-indent.el (LilyPond-blink-matching-open): use no argument,
+	as in blink-matching-open.
+
 2003-06-03  Graham Percival  <gperlist@shaw.ca>
 
 	* input/test/[a-c]: more comments in files.
diff --git a/lilypond-indent.el b/lilypond-indent.el
index d699494c76..cc59d992d8 100644
--- a/lilypond-indent.el
+++ b/lilypond-indent.el
@@ -387,7 +387,7 @@ slur-paren-p defaults to nil.
 ;;; Largely taken from the 'blink-matching-open' in lisp/simple.el in
 ;;; the Emacs distribution.
 
-(defun LilyPond-blink-matching-open (bracket-type)
+(defun LilyPond-blink-matching-open ()
   "Move cursor momentarily to the beginning of the sexp before
 point. In lilypond files this is used for closing ), ], } and >, whereas the
 builtin 'blink-matching-open' is not used. In syntax table, see
@@ -397,12 +397,10 @@ builtin 'blink-matching-open' is not used. In syntax table, see
   (let ( (oldpos (point))
 	 (level 0) 
 	 (mismatch) )
-    ;; 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
+    ;; Test if a ligature \] or expressional slur \) was encountered
+    (setq bracket-type (char-after (point)))
     (setq char-before-bracket-type nil)
-    (if (memq close-char '(?] ?\)))
+    (if (memq bracket-type '(?] ?\)))
       (progn 
 	(setq np -1)
 	(while (eq (char-before (- (point) (setq np (+ np 1)))) ?\\)
@@ -476,12 +474,11 @@ builtin 'blink-matching-open' is not used. In syntax table, see
   (interactive)
   (let ((oldpos (point)))
     (self-insert-command 1)
-    (setq close-char (char-before (point)))
     (if (and blink-matching-paren
 	     (not (LilyPond-inside-string-or-comment-p))
 	     (save-excursion (re-search-backward 
 			      (concat (mapconcat 'cdr (mapcar 'cdr LilyPond-parens-regexp-alist) "\\|") "\\|)") nil t)
 			     (eq oldpos (1- (match-end 0)))))
 	(progn (backward-char 1)
-	       (LilyPond-blink-matching-open close-char)
+	       (LilyPond-blink-matching-open)
 	       (forward-char 1)))))