diff --git a/ztl-mode.el b/ztl-mode.el index e12eebe..9a9fc31 100644 --- a/ztl-mode.el +++ b/ztl-mode.el @@ -5,10 +5,6 @@ (defconst ztl-mode-syntax-table (let ((syn-table (make-syntax-table))) - (modify-syntax-entry ?! "< b" syn-table) ; Line comment (extend to end of line) - (modify-syntax-entry ?\[ "(]" syn-table) - (modify-syntax-entry ?\] ")[" syn-table) - (modify-syntax-entry ?\" "\"" syn-table) syn-table)) (defvar ztl-keywords @@ -39,11 +35,12 @@ ("\\_<\\([A-Z][a-zA-Z0-9_]+\\)\\>" 1 font-lock-type-face) ;; Function definitions - ("\\_\\s-+\\(\\w+\\)\\s-*(" (1 font-lock-function-name-face)) + ("\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\([ \t\n\r]*\\)(" 1 font-lock-function-name-face) + + ("\\b[0-9]+\\b" 1 font-lock-number-face) + + )) - ;; Function calls - ("\\_<\\(\\w+\\)\\s-*(\\>" (1 font-lock-function-name-face)) -)) (define-derived-mode ztl-mode prog-mode "ZTL" "Major mode for ZTL programming."