X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=elisp%2Flilypond-indent.el;h=de988f9ff5acfc9a66505d2ee4a6a9dce9b4aef4;hb=3dce66bcb7ad778c9cddf4fbd636987e1bc10abf;hp=fd9ce60dabd955a485145082906c386a426161fb;hpb=d9fd01f2dc9ffb43038028859703f0788d1e384e;p=lilypond.git

diff --git a/elisp/lilypond-indent.el b/elisp/lilypond-indent.el
index fd9ce60dab..de988f9ff5 100644
--- a/elisp/lilypond-indent.el
+++ b/elisp/lilypond-indent.el
@@ -383,7 +383,7 @@ slur-paren-p defaults to nil.
     ;; 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)