;;; * currently, in bracket matching one may need a non-bracket
;;; chararacter between the bracket characters, like ( ( ) )
-(defcustom LilyPond-indent-level 4
+(defcustom LilyPond-indent-level 2
"*Indentation of lilypond statements with respect to containing block."
:group 'LilyPond
:type 'integer)
:group 'LilyPond
:type 'boolean)
-(defcustom LilyPond-comment-region "%%$"
+(defcustom LilyPond-comment-region "%%%"
"*String inserted by \\[LilyPond-comment-region]\
at start of each line in region."
:group 'LilyPond
;; match concurrent one-char opening and closing slurs
(if (and (eq dir 1)
(not (sequencep bracket-type))
- (eq (char-syntax (char-after oldpos)) ?\()
+ (eq (char-syntax (or (char-after oldpos) 0)) ?\()
(not (eq (char-after oldpos) ?<)))
;; anyway do not count open slur, since already level = -1
(progn (forward-char 1)