Mercurial Mercurial > dot-emacs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Highlight var if it contain underscore.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Mon, 22 Feb 2010 11:42:38 +0200
changeset 317 686aa3fcc3a4
parent 316 3c923c4fe9fa
child 318 6a430707c23e
Highlight var if it contain underscore.
lisp/bat-file-mode.el file | annotate | diff | comparison | revisions 
--- a/lisp/bat-file-mode.el	Mon Feb 22 11:28:30 2010 +0200
+++ b/lisp/bat-file-mode.el	Mon Feb 22 11:42:38 2010 +0200
@@ -34,8 +34,8 @@
     ("\\(:[[:alpha:]][[:alnum:]_]*\\)" (1 'font-lock-function-name-face))
     ("[gG][oO][tT][oO][[:blank:]]+\\([[:alpha:]][[:alnum:]_]*\\)" (1 'font-lock-function-name-face))
     ("[cC][aA][lL][lL][[:blank:]]+\\(:[[:alpha:]][[:alnum:]_]*\\)" (1 'font-lock-function-name-face))
-    ("\\(%[[:digit:]]\\|%%[[:alpha:]]\\|%[[:alpha:]][[:alnum:]]*%\\)" (1 'font-lock-variable-name-face))
-    ("[sS][eE][tT][[:blank:]]+\\([[:alpha:]][[:alnum:]]*\\)[[:blank:]]*=" (1 'font-lock-variable-name-face))
+    ("\\(%[[:digit:]]\\|%%[[:alpha:]]\\|%[[:alpha:]][[:alnum:]_]*%\\)" (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))
dot-emacs