Add emacs highlighing for macroses

diff --git a/src/thales/.dir-locals.el b/src/thales/.dir-locals.el
index 43e8d49fe16120dcbbde1760c7d9b2803490776c..7f7d78b5228078c3051d511c4f6378cc3b9fc4ab 100644 (file)
--- a/src/thales/.dir-locals.el
+++ b/src/thales/.dir-locals.el
@@ -3,13 +3,15 @@
 
 ((scheme-mode
      (eval font-lock-add-keywords nil
-        `(("(\\(sealed\\)\s\\(\\w+\\)"
+        `(("(\\(sealed\\|throw\\|catch\\)\s'?\\(\\w+\\)"
               (1 font-lock-keyword-face)
               (2 font-lock-constant-face))
           ("\\<lambda-match\\>" . font-lock-keyword-face)
            ("(\\(define-match\\)\s+(\\(\\w+\\)"
               (1 font-lock-keyword-face)
               (2 font-lock-function-name-face))
-           ("\\<for\\*?\\>" . font-lock-keyword-face)
+           ("\\<for\\*?\\>"   . font-lock-keyword-face)
+          ("\\<lambda\\*\\>" . font-lock-keyword-face)
+          ("error:.*?\\_>"   . 'bold)
 )
         :lowest-priority)))