--- a/lisp/bat-file-mode.el	Thu Feb 04 00:06:11 2010 +0200
+++ b/lisp/bat-file-mode.el	Fri Feb 05 16:15:49 2010 +0200
@@ -22,8 +22,13 @@
   nil
   '(
     ("\\(:[[:alnum:]_]+\\)" (1 'font-lock-function-name-face))
-    ("\\<\\([iI][fF]\\|[fF][oO][rR]\\|[gG][oO][tT][oO]\\|[pP][aA][uU][sS][eE]\\|[eE][cC][hH][oO]\\|[pP][rR][oO][mM][pP][tT]\\|[cC][aA][lL][lL]\\|[sS][eE][tT]\\|[sS][tT][aA][rR][tT]\\)\\>" (1 'font-lock-keyword-face))
+    ("\\<\\([iI][fF]\\|[eE][lL][sS][eE]\\|[fF][oO][rR]\\|[gG][oO][tT][oO]\
+\\|[nN][oO][tT]\\|[eE][rR][rR][oO][rR][lL][eE][vV][eE][lL]\
+\\|[pP][aA][uU][sS][eE]\\|[eE][cC][hH][oO]\\|[pP][rR][oO][mM][pP][tT]\
+\\|[cC][aA][lL][lL]\\|[sS][eE][tT]\\|[sS][tT][aA][rR][tT]\\)\\>" (1 'font-lock-keyword-face))
     ("\\(:[[:alpha:]][[:alnum:]_]*\\)" (1 'font-lock-function-name-face))
+    ("\\(%[[:digit:]]\\|%%[[:alpha:]]\\|%[[:alpha:]][[:alnum:]]*%\\)" (1 'font-lock-variable-name-face))
+    ("set[[:blank:]]+\\([[:alpha:]][[:alnum:]]*\\)[[:blank:]]*=" (1 'font-lock-variable-name-face))
     ;; ("\\(\\%[a-z]\\)" (1 'font-lock-reference-face))
     ;; ("\\(%\\sw+%\\)" (1 'font-lock-reference-face))
     ;; ("\\(%[0-9]\\)" (1 'font-lock-reference-face))