From: Heikki Junes <heikki.junes@hut.fi>
Date: Tue, 16 Sep 2003 23:07:51 +0000 (+0000)
Subject:         * lilypond-mode.el: allow `-' for keywords and identifiers.
X-Git-Tag: release/1.9.7~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=d6c979469c1b7b3cc383033d4c9ec8578577ffb7;p=lilypond.git

    * lilypond-mode.el: allow `-' for keywords and identifiers.
---

diff --git a/ChangeLog b/ChangeLog
index ac2da4f032..b904e79eda 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-09-17  Heikki Junes  <hjunes@cc.hut.fi>
+
+	* lilypond-mode.el: allow `-' for keywords and identifiers.
+
 2003-09-16  Han-Wen Nienhuys  <hanwen@cs.uu.nl>
 
 	* 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))))