From 6a3cdeca00b577985dd2640160e1935a89ee43a2 Mon Sep 17 00:00:00 2001 From: zongor Date: Sun, 20 Apr 2025 01:12:32 -0400 Subject: [PATCH] fix regex --- ztl-mode.el | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) 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."