From ec33f1c3056957e3a6c4119364b8367976db82a9 Mon Sep 17 00:00:00 2001 From: Alison Watson Date: Mon, 20 Apr 2020 19:19:02 -0600 Subject: [PATCH] emacs: new syntax for agw-lithdlg/agw-lithtxt --- emacs/data.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/emacs/data.el b/emacs/data.el index 53f5e4a..e8b4b03 100644 --- a/emacs/data.el +++ b/emacs/data.el @@ -61,11 +61,10 @@ "finished" "unfinished" "if" "else")) (functions '("option" "page" "name" "icon" "remote" "teleport_interlevel" "teleport_intralevel" - "script" "logon" "logoff" "pict" "info")) + "script" "logon" "logoff" "pict" "info" "text")) ( keyword-regexp (regexp-opt keywords 'words)) (function-regexp (regexp-opt functions 'words))) - `(("`.*$" . font-lock-string-face) - ( ,keyword-regexp . font-lock-keyword-face) + `(( ,keyword-regexp . font-lock-keyword-face) (,function-regexp . font-lock-function-name-face)))) (setq agw-lithdlg-syntax @@ -99,7 +98,8 @@ ;; Lithium text definition mode (setq agw-lithtxt-highlights - '(("^\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) " . font-lock-keyword-face) + '(("^\\(\\(==\\|%%\\|@@\\|\\+\\+\\|!![a-z]+\\) \\|@@$\\)" . + font-lock-keyword-face) ("^##.*$" . font-lock-comment-face) ("\\\\#" . font-lock-constant-face)))