Highlight -op and /op switches.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Fri, 05 Feb 2010 16:35:02 +0200
changeset 308 febb0a155d8d
parent 307 cb789e9ce92a
child 309 ea77f99a8369
Highlight -op and /op switches.
lisp/bat-file-mode.el
--- a/lisp/bat-file-mode.el	Fri Feb 05 16:23:40 2010 +0200
+++ b/lisp/bat-file-mode.el	Fri Feb 05 16:35:02 2010 +0200
@@ -27,8 +27,10 @@
 \\|[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))
+    ("[gG][oO][tT][oO][[:blank:]]+\\([[: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))
+    ("[sS][eE][tT][[:blank:]]+\\([[:alpha:]][[:alnum:]]*\\)[[:blank:]]*=" (1 'font-lock-variable-name-face))
+    ("[[:blank:]]+\\([-/][[:alnum:]_.]+\\)" (1 'font-lock-preprocessor-face))
     ;; ("\\(\\%[a-z]\\)" (1 'font-lock-reference-face))
     ;; ("\\(%\\sw+%\\)" (1 'font-lock-reference-face))
     ;; ("\\(%[0-9]\\)" (1 'font-lock-reference-face))