release: 1.2.6

[lilypond.git] / mudela-mode.el

diff --git a/mudela-mode.el b/mudela-mode.el
index 4a39958f0d500f70b39b29a0d6b59bee6c599726..ceb25563f53e19cefa8f07cf42a13d9e2b3a2eae 100644 (file)
--- a/mudela-mode.el
+++ b/mudela-mode.el
@@ -31,17 +31,18 @@
 ;; 
 
 (defconst mudela-font-lock-keywords
-  (let* ((keywords '("alternative" "repeat"
-                    "accepts" "accidentals" "break" "bar" "cadenza" 
-                    "clef" "cm" "consists" "consistsend" "contains" "duration" 
-                    "spanrequest" "grace" "scmfile" "lyrics"
-                    "in" "translator" "context" "key" "maininput" "notes"
-                    "musical_pitch" "time" "midi" "mm" "header"
-                    "notenames" "octave" "output" "partial" "paper" "plet" "name" "addlyrics"
-                    "property" "pt" "shape" "relative" "include" "score"
-                    "scm" "scmfile"
-                    "script" "skip"  "table" "times" "textscript" "symboltables" "type"
-                    "tempo" "transpose" "version" "grouping"
+  (let* ((keywords '("spanrequest" "simultaneous" "sequential" "accepts"
+                    "alternative" "bar" "breathe"
+                    "cadenza" "chordmodifiers" "chords" "clef" "cm" "consists"
+                    "consistsend" "context"
+                    "duration" "font" "grace" "header" "in" "lyrics"
+                    "key" "keysignature" "mark" "musicalpitch"
+                    "time" "times" "midi" "mm" "name" "notenames"
+                    "notes" "partial" "paper" "penalty" "property" "pt"
+                    "relative" "remove" "repeat" "repetitions" "addlyrics"
+                    "scm" "scmfile" "score" "script"
+                    "shape" "skip" "textscript" "tempo" "translator" "transpose"
+                    "type" "version" 
                     ))
        (kwregex (mapconcat (lambda (x) (concat "\\\\" x))  keywords "\\|")))
 
@@ -159,7 +160,7 @@
        )
   (make-local-variable 'comment-end)
   (make-local-variable 'comment-start-skip)
-  (setf comment-start-skip "%{")
+  (setq comment-start-skip "%{")       ;??
   (make-local-variable 'comment-column)
   (make-local-variable 'imenu-generic-expression)
   (setq imenu-generic-expression mu-imenu-generic-expression)