X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=mudela-mode.el;h=f6ea3233e75b1e5b6da49d000e9ae8021a0cdbeb;hb=refs%2Ftags%2Frelease%2F1.0.10;hp=7db23896b18a8989eb6f5465a53228e9b9daab91;hpb=5cfb4ad642561dcb61593b1aeb24717c5eb110da;p=lilypond.git

diff --git a/mudela-mode.el b/mudela-mode.el
index 7db23896b1..f6ea3233e7 100644
--- a/mudela-mode.el
+++ b/mudela-mode.el
@@ -27,18 +27,20 @@
 ;; * handle lexer modes (\header, \melodic, \lyric) etc.
 ;; * indentation
 ;; * notenames?
-;; * fontlock: \melodic \melodic 
+;; * fontlock: \melodic \melodic
+;; 
 
 (defconst mudela-font-lock-keywords
   (let* ((keywords '(
-		   "accepts" "break" "bar" "cadenza" "clear" "clef" "cm" "consists" "contains"
-		   "duration" "absdynamic" "in" "translator" "type" "lyric" "key"
-		   "melodic" "melodic_request" "meter" "midi" "mm" "multi" "header"
-		   "notenames" "octave" "output" "partial" "paper" "plet" "property" "pt" "shape"
-		   "include"
-		   "score" "script" "skip" "staff" "table" "spandynamic" "symboltables"
-		   "tempo" "texid" "textstyle" "transpose" "version" "grouping"
-		   ))
+		     "accepts" "accidentals" "break" "bar" "cadenza" 
+		     "clef" "cm" "consists" "contains" "duration" "absdynamic" 
+		     "in" "translator" "type" "lyric" "key" "maininput" "notes"
+		     "musical_pitch" "meter" "midi" "mm" "header"
+		     "notenames" "octave" "output" "partial" "paper" "plet"
+		     "property" "pt" "shape" "relative" "include" "score"
+		     "script" "skip"  "table" "spandynamic" "symboltables"
+		     "tempo" "texid" "textstyle" "transpose" "version" "grouping"
+		     ))
        (kwregex (mapconcat (lambda (x) (concat "\\\\" x))  keywords "\\|")))
 
     (list 
@@ -108,8 +110,13 @@
 	    ( ?\" . "\"" )
 	    ( ?\% . "<")	
 	    ( ?\n . ">")
-	    
-	    )))	
+
+; FIXME
+;	    ( ?%  .  ". 124b" )
+;	    ( ?{  .  ". 23" )
+	    ))
+
+  )	
 
 (defconst mu-stringlit-re
    "\"\\([^\"\n\\]\\|\\\\.\\)*\""	; double-quoted
@@ -192,7 +199,7 @@
 
 (defconst mu-version "0.0.1"
   "`mudela-mode' version number.")
-(defconst mu-help-address "hanwen@cs.ruu.nl"
+(defconst mu-help-address "hanwen@cs.uu.nl"
   "Address accepting submission of bug reports.")
 
 (defun mu-version ()