as an argument for char-syntax: use (char-syntax (or nil 0))
instead of (char-syntax nil), thanks to Milan Zamazal.
+2005-10-14 Heikki Junes <hjunes@cc.hut.fi>
+
+ * elisp/lilypond-font-lock.el, elisp/lilypond-indent.el: Avoid nil
+ as an argument for char-syntax: use (char-syntax (or nil 0))
+ instead of (char-syntax nil), thanks to Milan Zamazal.
+
2005-10-14 Han-Wen Nienhuys <hanwen@xs4all.nl>
* make/lilypond.fedora.spec.in (Group): add lilypond-internals to
2005-10-14 Han-Wen Nienhuys <hanwen@xs4all.nl>
* make/lilypond.fedora.spec.in (Group): add lilypond-internals to
D. Josiah Boothby
Kieren MacMillan
Kris Shaffer
D. Josiah Boothby
Kieren MacMillan
Kris Shaffer
Nancho Alvarez
Nicolas Sceaux
Steve Doonan
Nancho Alvarez
Nicolas Sceaux
Steve Doonan
(setq context (parse-partial-sexp (point-min) (point)))
(cond ((nth 3 context)) ; inside string
((nth 4 context)) ; inside a comment
(setq context (parse-partial-sexp (point-min) (point)))
(cond ((nth 3 context)) ; inside string
((nth 4 context)) ; inside a comment
- ((eq (char-syntax (char-before (point))) ?\\)) ; found escape-char
- ((and (eq (char-syntax (char-before (- (point) 1))) ?\\)
+ ((eq (char-syntax (or (char-before (point)) 0)) ?\\)) ; found escape-char
+ ((and (eq (char-syntax (or (char-before (- (point) 1)) 0)) ?\\)
(memq (char-before (point)) '( ?\) ?\] )))) ; found escape-char
((memq (char-before (point)) '( ?\) ))
(LilyPond-mode-set-syntax-table '( ?\( ?\) )))
(memq (char-before (point)) '( ?\) ?\] )))) ; found escape-char
((memq (char-before (point)) '( ?\) ))
(LilyPond-mode-set-syntax-table '( ?\( ?\) )))
;; match concurrent one-char opening and closing slurs
(if (and (eq dir 1)
(not (sequencep bracket-type))
;; 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)
(not (eq (char-after oldpos) ?<)))
;; anyway do not count open slur, since already level = -1
(progn (forward-char 1)