From bb694ee4fdcd91bb36054709785c0ece614f2f6d Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Sun, 5 Oct 2003 11:25:37 +0000 Subject: [PATCH] (LilyPond-mode-set-syntax-table): Bugfix for startup: Use ?^ instead of ?\^. --- ChangeLog | 5 +++++ elisp/lilypond-font-lock.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index c74ff04e2b..4509a2fb6e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2003-10-05 Jan Nieuwenhuizen + + * elisp/lilypond-font-lock.el (LilyPond-mode-set-syntax-table): + Bugfix for startup: Use ?^ instead of ?\^. + 2003-10-02 Han-Wen Nienhuys * lily/lyric-combine-music-iterator.cc diff --git a/elisp/lilypond-font-lock.el b/elisp/lilypond-font-lock.el index c2e258a709..87e218638c 100644 --- 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 -- 2.39.2