[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lilypond-devel
Subject:    Re: Lilypond and Emacs mode for Emacs 22
From:       Milan Zamazal <pdm () brailcom ! org>
Date:       2005-10-13 13:08:01
Message-ID: 87fyr5o98u.fsf () blackbird ! zamazal ! org
[Download RAW message or body]

>>>>> "NS" == Nicolas Sceaux <nicolas.sceaux@free.fr> writes:

    NS> Using in Emacs 22.0.50.1, I applied the following patch.

The following additional patch seems to be needed to avoid an error in
post-command-hook:


[Attachment #3 (text/x-patch)]

--- lilypond0/lilypond-font-lock.el	2005-10-13 11:12:36.000000000 +0200
+++ lilypond/lilypond-font-lock.el	2005-10-13 15:03:48.000000000 +0200
@@ -180,8 +180,8 @@
   (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 '( ?\( ?\) )))

Regards,

Milan Zamazal

-- 
I think any law that restricts independent use of brainpower is suspect.
                                               -- Kent Pitman in comp.lang.lisp


[prev in list] [next in list] [prev in thread] [next in thread]