# HG changeset patch # User Richard M. Stallman # Date 936910987 0 # Node ID 39262276b212f9d4be1c5bcc98933b16970ef714 # Parent 0f4f299cebb2d34af087a77ea0b700be168ef23a (bat-generic-mode): "::"-style comments don't need to begin with "-". Fix the font-lock definitions of ON/OFF after BREAK/VERIFY. Remove built-in commands like CALL and ECHO from the list of keywords. Add DO to the list of keywords. diff -r 0f4f299cebb2 -r 39262276b212 lisp/generic-x.el --- a/lisp/generic-x.el Thu Sep 09 20:16:02 1999 +0000 +++ b/lisp/generic-x.el Thu Sep 09 21:03:07 1999 +0000 @@ -301,11 +301,11 @@ ;; Make this one first in the list, otherwise comments will ;; be over-written by other variables (list "^[@ \t]*\\([rR][eE][mM][^\n\r]*\\)" 1 'font-lock-comment-face t) - (list "^[ \t]*\\(::-.*\\)" 1 'font-lock-comment-face t) + (list "^[ \t]*\\(::.*\\)" 1 'font-lock-comment-face t) (list "^[@ \t]*\\([bB][rR][eE][aA][kK]\\|[vV][eE][rR][iI][fF][yY]\\)[ \t]+\\([oO]\\([nN]\\|[fF][fF]\\)\\)" '(1 font-lock-builtin-face) - '(2 font-lock-constant-face 'append t)) + '(2 font-lock-constant-face t t)) ;; Any text (except ON/OFF) following ECHO is a string. (list "^[@ \t]*\\([eE][cC][hH][oO]\\)[ \t]+\\(\\([oO]\\([nN]\\|[fF][fF]\\)\\)\\|\\([^>|\r\n]+\\)\\)" @@ -319,15 +319,8 @@ ;; case-insensitive (generic-make-keywords-list (list - "call" - "echo" "for" "if" - "path" - "pause" - "prompt" - "set" - "start" ) 'font-lock-keyword-face "^[@ \t]*") ;; These keywords can be anywhere on a line @@ -335,6 +328,7 @@ ;; case-insensitive (generic-make-keywords-list (list + "do" "exist" "errorlevel" "goto"