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

diff --git a/ChangeLog b/ChangeLog
index ac2da4f032eab70c1804f41c18cf43734b90204d..b904e79edabab335ae87fd1ecac30a9fa25fe6b8 100644 (file)
--- 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 f0fe8f0d178f2d8f398974c0cd084a81ec8c28a9..2a55aece089107dcd153250fefd8b05eb0f36a37 100644 (file)
--- 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))))