(LilyPond-mode-set-syntax-table):

Bugfix for startup: Use ?^ instead of ?\^.

diff --git a/ChangeLog b/ChangeLog
index c74ff04e2b801f5fc4eb399698cacd5916a8a6a0..4509a2fb6e9af81fba639c96f980e0efefb35c92 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-05  Jan Nieuwenhuizen  <janneke@gnu.org>
+
+       * elisp/lilypond-font-lock.el (LilyPond-mode-set-syntax-table):
+       Bugfix for startup: Use ?^ instead of ?\^.
+
 2003-10-02  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
        * lily/lyric-combine-music-iterator.cc

diff --git a/elisp/lilypond-font-lock.el b/elisp/lilypond-font-lock.el
index c2e258a709bbe9d8f9c2d9d581414ee109f54b20..87e218638ccdb0499760734fd5defb9f2f4caded 100644 (file)
--- a/elisp/lilypond-font-lock.el
+++ b/elisp/lilypond-font-lock.el
@@ -162,8 +162,8 @@
       (setq defaults (cons '( ?\( . "." ) (cons '( ?\) . "." ) defaults))))
     ;; In LilyPond the following chars serve as escape chars, e.g., c^> d-) e_( , 
     ;; but they may be set to punctuation chars, since inside strings they should not act as escape chars
-    (setq defaults (cons (if (memq ?\- not-punct) '( ?\- . "\\" ) '( ?\- . "." ) ) defaults))
-    (setq defaults (cons (if (memq ?\^ not-punct) '( ?\^ . "\\" ) '( ?\^ . "." ) ) defaults))
+    (setq defaults (cons (if (memq ?- not-punct) '( ?\- . "\\" ) '( ?\- . "." ) ) defaults))
+    (setq defaults (cons (if (memq ?^ not-punct) '( ?^ . "\\" ) '( ?^ . "." ) ) defaults))
     (setq defaults (cons (if (memq ?\_ not-punct) '( ?\_ . "\\" ) '( ?\_ . "." ) ) defaults))
     (mapcar (function
             (lambda (x) (modify-syntax-entry