release: 1.2.14

[lilypond.git] / mudela-mode.el

diff --git a/mudela-mode.el b/mudela-mode.el
index ed33b674933a6b969bd83dd1230f155e183eafc8..ceb25563f53e19cefa8f07cf42a13d9e2b3a2eae 100644 (file)
--- a/mudela-mode.el
+++ b/mudela-mode.el
@@ -31,16 +31,18 @@
 ;; 
 
 (defconst mudela-font-lock-keywords
-  (let* ((keywords '(
-                    "accepts" "accidentals" "break" "bar" "cadenza" 
-                    "clef" "cm" "consists" "contains" "duration" "absdynamic" 
-                    "in" "translator" "type" "lyric" "key" "maininput" "notes"
-                    "musical_pitch" "time" "midi" "mm" "header"
-                    "notenames" "octave" "output" "partial" "paper" "plet"
-                    "property" "pt" "shape" "relative" "include" "score"
-                    "scm" "scmfile"
-                    "script" "skip"  "table" "spandynamic" "symboltables"
-                    "tempo" "texid" "textstyle" "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 "\\|")))
 
@@ -98,8 +100,8 @@
   (mapcar (function
           (lambda (x) (modify-syntax-entry
                        (car x) (cdr x) mu-mode-syntax-table)))
-         '(( ?\( . "()" ) ( ?\) . ")(" )
-           ( ?\[ . "(]" ) ( ?\] . ")[" )
+         '(( ?\( . "." ) ( ?\) . "." )
+           ( ?\[ . "." ) ( ?\] . "." )
            ( ?\{ . "(}" ) ( ?\} . "){" )
            ( ?\< . "(>" )( ?\> . ")>") 
            ( ?\$ . "." ) ( ?\% . "." ) ( ?\& . "." )
@@ -158,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)