From d6c979469c1b7b3cc383033d4c9ec8578577ffb7 Mon Sep 17 00:00:00 2001 From: Heikki Junes Date: Tue, 16 Sep 2003 23:07:51 +0000 Subject: [PATCH] * lilypond-mode.el: allow `-' for keywords and identifiers. --- ChangeLog | 4 ++++ lilypond-mode.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index ac2da4f032..b904e79eda 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-09-17 Heikki Junes + + * lilypond-mode.el: allow `-' for keywords and identifiers. + 2003-09-16 Han-Wen Nienhuys * lilypond-mode.el (LilyPond-command-alist): invoke lilypond diff --git a/lilypond-mode.el b/lilypond-mode.el index f0fe8f0d17..2a55aece08 100644 --- a/lilypond-mode.el +++ b/lilypond-mode.el @@ -115,7 +115,7 @@ Finds file lilypond-words from load-path." (setq currword (car co)) (if (> (length currword) 1) (if (and (string-equal "\\" (substring currword 0 1)) - (not (string-match "[^a-zA-Z]" (substring currword 1))) + (not (string-match "[^a-zA-Z-]" (substring currword 1))) (string-equal (downcase currword) currword)) (add-to-list 'wordlist currword))) (if (string-equal "-" (car (setq co (cdr co)))) @@ -132,7 +132,7 @@ Finds file lilypond-words from load-path." (setq currword (car co)) (if (> (length currword) 1) (if (and (string-equal "\\" (substring currword 0 1)) - (not (string-match "[^a-zA-Z]" (substring currword 1))) + (not (string-match "[^a-zA-Z-]" (substring currword 1))) (not (string-equal (downcase currword) currword))) (add-to-list 'wordlist currword))) (if (string-equal "-" (car (setq co (cdr co)))) -- 2.39.5